Wie öffnet man alle Unterordner in Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

Wenn Sie mehrere Unterordner unter Ihren Outlook-Ordnern erstellen, wie können Sie dann all diese Unterordner sofort öffnen oder erweitern? In diesem Artikel stelle ich Ihnen einen nützlichen VBA-Code vor, mit dem Sie diese Aufgabe lösen können.

Öffnen oder erweitern Sie alle Unterordner in Outlook mit VBA-Code

Öffnen oder erweitern Sie alle Unterordner in Outlook mit VBA-Code

Bitte wenden Sie den folgenden VBA-Code an, um alle Unterordner von allen Outlook-Konten zu erweitern:

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

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

VBA-Code: Alle Unterordner in 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 dann die F5-Taste, um diesen Code auszuführen, und alle Unterordner in allen Konten Ihres Outlook wurden erweitert, siehe Screenshot: