Wie öffnet man alle Unterordner in Outlook?

Wenn Sie mehrere Unterordner in Ihren Outlook-Ordnern erstellt haben – wie öffnen oder erweitern Sie dann alle diese Unterordner auf einen Schlag? In diesem Artikel stelle ich Ihnen einen praktischen VBA-Code vor, mit dem Sie diese Aufgabe mühelos erledigen können.

Öffnen oder Erweitern aller Unterordner aus Outlook mithilfe eines VBA-Codes

---

Öffnen oder Erweitern aller Unterordner aus Outlook mithilfe eines VBA-Codes

Wenden Sie bitte den folgenden VBA-Code an, um alle Unterordner aller Outlook-Konten zu erweitern:

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro in das Modulfenster ein.

VBA-Code: Alle Unterordner aus Outlook öffnen:

Sub ExpandAllMailFolders()
    Dim xCurrentFolder As Folder
    Dim xAllFolders As Folders
    Dim xFolder As Folder
    On Error Resume Next
    Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder
    Set xAllFolders = Application.Session.Folders
    For Each xFolder In xAllFolders
        Call ProcessFolders(xFolder)
    Next
    Set Application.ActiveExplorer.CurrentFolder = xCurrentFolder
End Sub
Sub ProcessFolders(ByVal CurFolder As Folder)
    Dim xSubfolder As Folder
    On Error Resume Next
    If CurFolder.DefaultItemType <> olMailItem Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = CurFolder
    DoEvents
    If CurFolder.Folders.Count = 0 Then Exit Sub
    For Each xSubfolder In CurFolder.Folders
        Call ProcessFolders(xSubfolder)
    Next
End Sub

3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Danach werden alle Unterordner in allen Konten Ihres Outlook erweitert. Siehe Screenshot: