Kā ātri izvērst vai sakļaut visas pasta mapes programmā Outlook

Reizēm var rasties nepieciešamība vienlaikus izvērst vai sakļaut visas pasta mapes pasta navigācijas rūtī. Šādā gadījumā varat izmantot šajā ierakstā aprakstītās metodes.

Dažu iemeslu dēļ, piemēram, lai ērtāk pārbaudītu e-pastus dažādās mapēs un apakšmapēs, iespējams, vēlēsities izvērst visas pasta mapes. Tāpat, ja jūtat, ka visu mapju turēšana izvērstas padara jūsu pasta navigācijas rūti pārāk sarežģītu, iespējams, vēlēsities sakļaut visas mapes. Šajā brīdī, ja tos izvērsiet vai sakļaujat manuāli, noklikšķinot pa vienam, tas būs ievērojami nogurdinoši. Tāpēc jums ir jātiecas pēc daudz ātras metodes, kas var vienā piegājienā izvērst vai sakļaut visas pasta mapes. Tagad mēs jums parādīsim šādu līdzekli.

Izvērsiet visas pasta mapes

1. Pirmkārt, startējiet savu Outlook programmu kā parasti.
2. Pēc tam Outlook galvenajā logā nospiediet taustiņu “Alt + F11” taustiņus.
3. Pēc tam Outlook VBA redaktora logā atveriet tukšu moduli.
4. Pēc tam šajā modulī iekopējiet šādus VBA kodus.

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. Pēc tam rīkjoslā varat noklikšķināt uz pogas “Run Sub” vai nospiest taustiņu F5, lai aktivizētu jauno makro.
6. Tūlīt tiks izvērstas visas pasta mapes iepriekš definētajā Outlook PST failā.

Sakļaut visas pasta mapes

Salīdzinot ar visu pasta mapju paplašināšanu, sakļaut ir daudz vienkāršāk. Varat vienkārši sakļaut konkrētā Outlook PST faila sakni un pēc tam to vēlreiz izvērst. Lai to izdarītu, varat noklikšķināt uz bultiņas PST faila augstākā līmeņa mapes priekšā, piemēram, nākamajā ekrānuzņēmumā. Pēc tam vēlreiz noklikšķiniet uz bultiņas, lai izvērstu failu. Var redzēt, ka visas apakšmapes ir sakļautas.

Elastīgi rīkojieties ar traucējošajām PST kļūdām

Vai esat kādreiz saņēmis kļūdas ziņojumus, izmantojot programmu Outlook? Ja esat izmantojis programmu Outlook gadu desmitiem, jums tas ir jādara. Bez šaubām, programma Outlook ir neaizsargāta pret kļūdām. Tādējādi, lai labāk aizsargātu savus Outlook datus, jums periodiski ir jādublē Outlook PST fails. Turklāt ir ieteicams saglabāt a PST labojums rīks tuvumā, piemēram DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts sql un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar