Hvordan raskt utvide eller skjule alle e-postmapper i Outlook

Noen ganger vil du kanskje utvide eller skjule alle e-postmapper i e-postnavigasjonsruten på én gang. I dette tilfellet kan du bruke metodene introdusert i denne sost.

Av noen grunner, for eksempel for å sjekke e-postene i forskjellige mapper og undermapper mer praktisk, kan det være lurt å utvide alle e-postmappene. På samme måte, når du føler at det å holde alle mappene utvidet gjør at e-postnavigasjonsruten ser for kompleks ut, kan det hende du ønsker å skjule alle mappene. På dette tidspunktet, hvis du utvider eller skjuler dem manuelt ved å klikke én etter én, vil det være betydelig kjedelig. Derfor må du lengte etter en mye rask metode som kan utvide eller kollapse alle postmappene på en gang. Nå, her vil vi avsløre et slikt middel for deg.

Utvid alle e-postmapper

1. For det første, start Outlook-programmet ditt normalt.
2. Trykk deretter på "Alt + F11"-tastene i hovedvinduet i Outlook.
3. Deretter åpner du en tom modul i Outlook VBA-redigeringsvinduet.
4. Kopier deretter følgende VBA-koder inn i denne modulen.

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. Etter det kan du klikke på "Run Sub"-knappen i verktøylinjen eller trykke på F5-tasten for å utløse den nye makroen.
6. Umiddelbart vil alle e-postmappene i den forhåndsdefinerte Outlook PST-filen utvides.

Skjul alle e-postmapper

Sammenlignet med å utvide alle e-postmapper, er det mye enklere å kollapse. Du kan bare skjule roten til den spesifikke Outlook PST-filen og deretter utvide den igjen. For å gjøre det, kan du klikke på pilen foran toppnivåmappen til PST-filen, som følgende skjermbilde. Deretter klikker du på pilen på nytt for å utvide filen. Du kan se at alle undermappene har blitt slått sammen.

Håndter plagsomme PST-feil fleksibelt

Har du noen gang mottatt noen feilmeldinger under bruk av Outlook? Hvis du har brukt Outlook i flere tiår, må du ha det. Uten tvil er Outlook sårbart for feil. For å bedre beskytte Outlook-dataene dine, må du derfor sikkerhetskopiere Outlook PST-filen med jevne mellomrom. Dessuten foreslås det å beholde en PST-fiks verktøy i nærheten, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert ødelagt sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med