Wie kann man beim Start von Outlook automatisch alle Ordner erweitern?

Author: Kelly Last Modified: 2025-08-06

Normalerweise behält ein Ordner in der Navigationsleiste von Outlook seinen erweiterten oder reduzierten Zustand bei, wenn Sie ihn erweitern oder reduzieren und anschließend das Programm schließen. Beim nächsten Öffnen von Outlook bleibt dieser Zustand erhalten. Was aber, wenn Sie möchten, dass jedes Mal, wenn Sie Outlook starten, alle Ordner automatisch erweitert werden? Dieser Artikel bietet eine VBA-Lösung, um genau das zu erreichen.

Automatisches Erweitern aller Ordner beim Start von Outlook mit VBA

Automatisches Erweitern aller Ordner beim Start von Outlook mit VBA

Diese Anleitung zeigt Ihnen, wie Sie mit einem VBA-Skript automatisch alle Ordner in der Navigationsleiste jedes Mal erweitern können, wenn Sie Outlook starten. Folgen Sie diesen Schritten, um das VBA-Skript zu implementieren:

Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

Erweitern Sie Projekt 1 und Microsoft Outlook-Objekte im Projekt Bereich, doppelklicken Sie, um das Fenster ThisOutlookSession zu öffnen, und fügen Sie dann den folgenden VBA-Code ein.

VBA: Automatisches Erweitern aller Ordner in Outlook

Public WithEvents GEx As Explorer
Public GFlag As Boolean
Private Sub Application_Startup()
  'Update by ExtendOffice 2023/12/08
  Set GEx = Application.ActiveExplorer
  GFlag = False
End Sub

Private Sub GEx_SelectionChange()
  If GFlag = False Then
    ExpandAllFolders
  End If
  GFlag = True
End Sub

Public Sub ExpandAllFolders()
  Dim xNameSpace As Outlook.NameSpace
  Dim xFlds As Outlook.Folders
  Dim xCurrFld As Outlook.MAPIFolder
  Dim xFld As Outlook.MAPIFolder
  Dim xExpandDefaultStoreOnly As Boolean
  Dim xModule As NavigationModule
  On Error Resume Next
  xExpandDefaultStoreOnly = False
  Set xNameSpace = Application.Session
  Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule
  Set xCurrFld = Application.ActiveExplorer.CurrentFolder
  If xExpandDefaultStoreOnly = True Then
    Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox)
    Set xFld = xFld.Parent
    Set xFlds = xFld.Folders
    LoopFolders xFlds, True
  Else
    LoopFolders xNameSpace.Folders, True
    LoopFolders xNameSpace.Folders, False
  End If
  DoEvents
  Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule
  Set Application.ActiveExplorer.CurrentFolder = xCurrFld
  Set xNameSpace = Nothing
  Set xModule = Nothing
  Set xCurrFld = Nothing
End Sub

Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean)
  Dim xFld As Outlook.MAPIFolder
  On Error Resume Next
  For Each xFld In Flds
    Select Case All
      Case True
        If xFld.DefaultItemType = olMailItem Then
          Set Application.ActiveExplorer.CurrentFolder = xFld
          DoEvents
          If xFld.Folders.Count > 0 Then
            LoopFolders xFld.Folders, All
          End If
        End If
      Case False
        Set Application.ActiveExplorer.CurrentFolder = xFld
        DoEvents
        If xFld.Folders.Count > 0 Then
          LoopFolders xFld.Folders, All
        End If
    End Select
  Next
End Sub

Speichern Sie den Code und schließen Sie das Fenster Microsoft Visual Basic for Applications.

Ab sofort werden beim Neustart von Outlook alle Ordner automatisch erweitert.

Hinweise:

Dieses VBA kann keine reduzierten Suchordner beim Neustart von Outlook öffnen.
Um sicherzustellen, dass das VBA-Skript korrekt funktioniert, ist es wichtig, Ihre Makro-Einstellungen in Outlook anzupassen. Gehen Sie zu Datei > Optionen > Trust Center > Trust Center Einstellungen > Makro-Einstellungen, und wählen Sie die Option Alle Makros aktivieren. Diese Einstellung ermöglicht es dem VBA-Skript, ohne Einschränkungen auszuführen.

AI-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (per Klick-Zauberei!) KOSTENLOS

Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem AI-Mail-Assistenten von Kutools für Outlook. Dieses leistungsstarke Tool lernt aus Ihren früheren E-Mails, um intelligente und genaue Antworten anzubieten, Ihren E-Mail-Inhalt zu optimieren und Ihnen das Verfassen und Überarbeiten von Nachrichten mühelos zu ermöglichen.

Diese Funktion unterstützt:

Intelligente Antworten: Erhalten Sie Antworten, die aus Ihren früheren Gesprächen erstellt wurden – maßgeschneidert, präzise und sofort einsatzbereit.
Verbesserter Inhalt: Optimieren Sie Ihren E-Mail-Text automatisch für Klarheit und Wirkung.
Müheloses Verfassen: Geben Sie einfach Schlüsselwörter ein und lassen Sie die KI den Rest erledigen, mit mehreren Schreibstilen.
Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
Zusammenfassung: Erhalten Sie prägnante Übersichten über lange E-Mails auf Knopfdruck.
Weltweite Reichweite: Übersetzen Sie Ihre E-Mails ganz einfach in jede Sprache.

Diese Funktion unterstützt: