Outlook-da bütün poçt qovluqlarını necə tez genişləndirmək və ya daraltmaq olar

Bəzən siz poçt naviqasiyası panelindəki bütün poçt qovluqlarını bir anda genişləndirmək və ya daraltmaq istəyə bilərsiniz. Bu halda, bu səhifədə təqdim olunan üsullardan istifadə edə bilərsinizost.

Bəzi səbəblərə görə, məsələn, müxtəlif qovluqlar və alt qovluqlardakı e-poçtları daha rahat yoxlamaq üçün bütün poçt qovluqlarını genişləndirmək istəyə bilərsiniz. Eyni şəkildə, bütün qovluqların geniş saxlanmasının poçt naviqasiya panelinizin çox mürəkkəb göründüyünü hiss etdiyiniz zaman bütün qovluqları yığışdırmaq istəyə bilərsiniz. Bu nöqtədə, onları bir-bir klikləməklə əl ilə genişləndirsəniz və ya daraltsanız, bu, xeyli yorucu olacaq. Buna görə də, bütün poçt qovluqlarını bir anda genişləndirə və ya daralda bilən çox sürətli bir üsula can atmalısınız. İndi biz sizə belə bir vasitə təqdim edəcəyik.

Bütün Poçt Qovluqlarını genişləndirin

1. İlk növbədə, start Outlook proqramınızı normal olaraq.
2. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
3. Sonrakı Outlook VBA redaktoru pəncərəsində boş bir modul açın.
4. Sonradan aşağıdakı VBA kodlarını bu modula köçürün.

Sub ExpandAllMailFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objPSTFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder

    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
    'Specify a specific pst file
    'Change "PSTName" to the name of your own Outlook PST file
    Set objPSTFolders = Application.Session.Folders("PSTName").Folders
 
    For Each objFolder In objPSTFolders
        Call ProcessFolder(objFolder)
    Next

    DoEvents
    Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
End Sub

Sub ProcessFolder(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    'Only expand the mail folders
    If objCurFolder.DefaultItemType = olMailItem Then
       Set Application.ActiveExplorer.CurrentFolder = objCurFolder
       DoEvents
 
       'Process all subfolders recursively
       If objCurFolder.Folders.Count > 0 Then
          For Each objSubfolder In objCurFolder.Folders
              Call ProcessFolder(objSubfolder)
          Next
       End If
    End If
End Sub

5. Bundan sonra, alətlər panelində "Alt-ı işlət" düyməsini klikləyə və ya yeni makronu işə salmaq üçün F5 düyməsini sıxa bilərsiniz.
6. Dərhal əvvəlcədən təyin edilmiş Outlook PST faylındakı bütün poçt qovluqları genişləndiriləcək.

Bütün Poçt Qovluqlarını Yığcamlaşdırın

Bütün poçt qovluqlarını genişləndirməklə müqayisədə, çökdürmək daha asandır. Siz sadəcə olaraq xüsusi Outlook PST faylının kökünü yıxıb yenidən genişləndirə bilərsiniz. Bunu etmək üçün aşağıdakı ekran görüntüsü kimi PST faylının yuxarı səviyyəli qovluğunun qarşısındakı oxu klikləyə bilərsiniz. Bundan sonra, faylı genişləndirmək üçün oxu yenidən basın. Bütün alt qovluqların yığışdırıldığını görə bilərsiniz.

Problemli PST xətalarını çevik şəkildə idarə edin

Outlook istifadə edərkən heç bir səhv mesajı almısınızmı? Əgər siz onilliklər ərzində Outlook-dan istifadə etmisinizsə, mütləq istifadə etməlisiniz. Şübhəsiz ki, Outlook səhvlərə qarşı həssasdır. Beləliklə, Outlook məlumatlarınızı daha yaxşı qorumaq üçün vaxtaşırı olaraq Outlook PST faylınızın ehtiyat nüsxəsini çıxarmalısınız. Üstəlik, saxlamaq tövsiyə olunur PST düzəlişi yaxınlıqdakı alət kimi DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com