Cookies bizim xidmətlər təqdim kömək edir. Bizim xidmətlərimizdən istifadə edərək, siz cookies bizim istifadə razıyam.
İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bütün alt qovluqları Outlook-dan necə açmaq olar?

Outlook qovluqları altında birdən çox alt qovluq yaratsanız, dərhal bu alt qovluqların hamısını necə aça və ya genişləndirə bilərsən? Bu məqalədə, bu işi həll etmək üçün faydalı VBA kodu təqdim edəcəyəm.

VBA koduyla Outlook-dan bütün alt qovluqları açın və ya genişləndirin


VBA koduyla Outlook-dan bütün alt qovluqları açın və ya genişləndirin

Xahiş edirik, bütün Outlook qovluqlarından bütün alt qovluqları genişləndirmək üçün aşağıdakı VBA kodunu tətbiq edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modulesvə Modul Pəncərəsində aşağıdakı makroyu yapışdırın.

VBA kodu: Bütün alt qovluqları Outlook-dan açın:

Sub ExpandAllMailFolders () Dim xCurrentFolder Qovluq kimi dim xAllFolders Qovluqlar Dim xFolder Xəttin üzərindəki qovluq olaraq davam etmə xCurrentFolder = Application.ActiveExplorer.CurrentFolder xAllFolders = Hər bir xFolder üçün Application.Session.Folders xAllFolders-da Call ProcessFolders (xFolder) Next Set Application. ActiveExplorer.CurrentFolder = xCurrentFolder Sonu Alt Sub ProcessPolder (ByVal CurFolder Qovluq kimi) Dim xSubfolder Xəttin üzərindəki qovluq olaraq davam edərsə CurFolder.DefaultItemType <> olMailItem Sonra Exit Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents CurFolder.Folders.Count = 0 Sonra CurFolder.Folders ildə hər bir xSubfolder üçün Exit Sub Call ProcessFolders (xSubfolder) Sonrakı End Sub

3. Sonra basın F5 bu kodu çalıştırmak üçün açar ve Outlook'un bütün hesaplarındaki tüm alt klasörler genişletildi, ekran görüntüsüne baxın:

doc 1 alt qovluqlarını genişləndir



Outlook üçün Kutools

100, 2010, 2013, 2016 və 2019 üçün 365 Ətraflı funksiyaları

201812 pankart üçün küçə görünüşü üçün ekran shot kutools

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.