Direkt zum Inhalt

Wie kann ich beim Starten von Outlook automatisch alle Ordner erweitern?

Wenn Sie einen Ordner im Navigationsbereich von Outlook erweitern oder reduzieren und anschließend das Programm schließen, behält der Ordner beim erneuten Öffnen von Outlook normalerweise seinen erweiterten oder reduzierten Zustand bei. Was aber, wenn Sie möchten, dass alle Ordner bei jedem Start von Outlook automatisch erweitert werden? Dieser Artikel bietet eine VBA-Lösung, um genau das zu erreichen.

Erweitern Sie alle Ordner automatisch, wenn Sie Outlook mit VBA starten

Office-Registerkarte – Ermöglichen Sie das Bearbeiten und Durchsuchen mit Registerkarten in Microsoft Office und machen Sie die Arbeit zum Kinderspiel
Kutools für Outlook – Steigern Sie Outlook mit über 100 erweiterten Funktionen für überragende Effizienz
Verbessern Sie Ihr Outlook 2021 – 2010 oder Outlook 365 mit diesen erweiterten Funktionen. Genießen Sie eine umfassende 60-tägige kostenlose Testversion und verbessern Sie Ihr E-Mail-Erlebnis!

Pfeil blau rechte Blase Erweitern Sie alle Ordner automatisch, wenn Sie Outlook mit VBA starten

In dieser Anleitung wird gezeigt, wie Sie mithilfe eines VBA-Skripts bei jedem Start von Outlook automatisch alle Ordner im Navigationsbereich erweitern. Befolgen Sie diese Schritte, um das VBA-Skript zu implementieren:

  1. Presse- Alt + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
  2. Erweitern Sie die Projekt 1 und Microsoft Outlook-Objekte der Projekt Doppelklicken Sie, um das Fenster zu öffnen DieseOutlookSession Fenster und fügen Sie dann den folgenden VBA-Code ein.

    VBA: Erweitern Sie automatisch alle 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
  3. Speichern Sie den Code und schließen Sie das Microsoft Visual Basic für Applikationen Fenster.

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

Anmerkungen:

  • Diese VBA kann die minimierten Suchordner beim Neustart von Outlook nicht öffnen.
  • Um sicherzustellen, dass das VBA-Skript ordnungsgemäß funktioniert, ist es wichtig, Ihre Makroeinstellungen in Outlook anzupassen. Bitte gehe zu Reichen Sie das > Optionen > Trust Center > Vertrauensstellungscenter > Makroeinstellungenund wählen Sie die Option Aktivieren Sie alle Makros Möglichkeit. Mit dieser Einstellung kann das VBA-Skript ohne Einschränkungen ausgeführt werden.

Pfeil blau rechte Blase Ähnliche Artikel


Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge ProBatch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

 

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Just tried this on Microsoft® Outlook® for Microsoft 365 MSO (Version 2310 Build 16.0.16924.20054) 64-bit and it was unsuccessful
This comment was minimized by the moderator on the site
Hi there,

Please go to File > Options > Trust Center > Trust Center Settings > Macro Settings. And select the Enable all macros option. After making this change, restart Outlook, the macro should then be operational.
This comment was minimized by the moderator on the site
Hi guys,

does this code also work for Microsoft outlook 365?
I have tried and tried again, but I get no results.
Thanks.
This comment was minimized by the moderator on the site
I couldn't get this macro to work either.
This comment was minimized by the moderator on the site
Hi there,
We've updated the code, please try it again. 🙂
Amanda
This comment was minimized by the moderator on the site
I cannot get this macro to work at all.  All folders in the Folder pane are not expanded at all.  I am using Outlook 2021.  Is there some instruction I missed?
This comment was minimized by the moderator on the site
Hi there,
We've updated the code, please try it again. 🙂
Amanda
This comment was minimized by the moderator on the site
Thank you so much.. It solved my problem. :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations