Kako brzo proširiti ili sažeti sve mape pošte u vašem Outlooku

Ponekad ćete možda htjeti proširiti ili sažeti sve mape pošte u navigacijskom oknu pošte odjednom. U ovom slučaju, možete koristiti metode predstavljene u ovoj strost.

Iz nekih razloga, kao što je prikladnija provjera e-pošte u različitim mapama i podmapama, možda ćete htjeti proširiti sve mape pošte. Jednako tako, kada smatrate da zadržavanje svih mapa proširenih čini da navigacijsko okno vaše pošte izgleda previše složeno, možda ćete poželjeti sažeti sve mape. U ovom trenutku, ako ih proširite ili sažmete ručno klikanjem jednog po jednog, to će biti prilično zamorno. Stoga morate čeznuti za mnogo brzom metodom koja može proširiti ili sažeti sve mape pošte u jednom potezu. Sada ćemo vam otkriti takvo sredstvo.

Proširite sve mape pošte

1. U prvom redu starVaš Outlook program normalno.
2. Zatim pritisnite tipke "Alt + F11" u glavnom prozoru programa Outlook.
3. Zatim u prozoru uređivača Outlook VBA otvorite prazan modul.
4. Nakon toga kopirajte sljedeće VBA kodove u ovaj modul.

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. Nakon toga možete kliknuti gumb "Run Sub" na alatnoj traci ili pritisnuti tipku F5 za pokretanje nove makronaredbe.
6. Odmah će se proširiti sve mape pošte u unaprijed definiranoj Outlook PST datoteci.

Sažmi sve mape pošte

U usporedbi s proširivanjem svih mapa pošte, sažimanje je puno lakše. Možete samo sažeti korijen određene Outlook PST datoteke i zatim je ponovno proširiti. Da biste to učinili, možete kliknuti na strelicu ispred mape najviše razine PST datoteke, kao na sljedećoj snimci zaslona. Nakon toga ponovno kliknite na strelicu da biste proširili datoteku. Možete vidjeti da su sve podmape sažete.

Fleksibilno riješite problematične PST pogreške

Jeste li ikada primili bilo kakvu poruku o pogrešci tijekom korištenja Outlooka? Ako ste desetljećima koristili Outlook, sigurno jeste. Bez ikakve sumnje, Outlook je osjetljiv na pogreške. Stoga, kako biste bolje zaštitili svoje Outlook podatke, morate povremeno napraviti sigurnosnu kopiju Outlook PST datoteke. Štoviše, predlaže se zadržati a PST popravak alat u blizini, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećeni sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com