Sådan udvides eller skjules alle mailmapper hurtigt i din Outlook

Til tider kan det være nødvendigt at udvide eller skjule alle e-mailmapper i e-mailnavigationsruden på én gang. I dette tilfælde kan du bruge metoderne introduceret i dette indlæg.

Af nogle grunde, såsom for at tjekke e-mails i forskellige mapper og undermapper mere bekvemt, kan du måske udvide alle mailmapperne. Ligeledes, når du føler, at det at holde alle mapper udvidet får din postnavigationsrude til at se for kompleks ud, kan du måske ønske at skjule alle mapperne. På dette tidspunkt, hvis du udvider eller skjuler dem manuelt ved at klikke én efter én, vil det være betydeligt kedeligt. Derfor skal du længes efter en meget hurtig metode, der kan udvide eller kollapse alle mailmapperne på én gang. Nu, her vil vi afsløre et sådant middel for dig.

Udvid alle postmapper

1. Start først dit Outlook-program normalt.
2. Tryk derefter på “Alt + F11” -tasten i hovedvinduet i Outlook.
3. Åbn derefter et tomt modul i Outlook VBA-editorvinduet.
4. Kopier efterfølgende følgende VBA-koder ind i dette 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. Derefter kan du klikke på knappen "Run Sub" på værktøjslinjen eller trykke på F5-tasten for at udløse den nye makro.
6. Straks vil alle mailmapperne i den foruddefinerede Outlook PST-fil blive udvidet.

Skjul alle mailmapper

Sammenlignet med at udvide alle postmapper er det meget nemmere at klappe sammen. Du kan bare skjule roden af ​​den specifikke Outlook PST-fil og derefter udvide den igen. For at gøre det kan du klikke på pilen foran mappen på øverste niveau i PST-filen, som det følgende skærmbillede. Derefter skal du genklikke på pilen for at udvide filen. Du kan se, at alle undermapperne er blevet foldet sammen.

Håndter besværlige PST-fejl fleksibelt

Har du nogensinde modtaget fejlmeddelelser under brug af Outlook? Hvis du har brugt Outlook i årtier, skal du have. Uden tvivl er Outlook sårbar over for fejl. For at beskytte dine Outlook-data bedre, skal du sikkerhedskopiere din Outlook PST-fil med jævne mellemrum. Desuden foreslås det at beholde en PST-rettelse værktøj i nærheden, som DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com