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
- Automatisieren Sie den E-Mail-Versand mit Auto CC / BCC, Automatische Weiterleitung nach Regeln; schicken Automatische Antwort (Abwesend) ohne dass ein Exchange-Server erforderlich ist ...
- Erhalten Sie Erinnerungen wie BCC-Warnung wenn Sie auf alle antworten, während Sie sich in der BCC-Liste befinden, und Bei fehlenden Anhängen erinnern für vergessene Anhänge...
- Verbessern Sie die E-Mail-Effizienz mit (Allen) mit Anhängen antworten, Begrüßung oder Datum und Uhrzeit automatisch zur Signatur oder zum Betreff hinzufügen, Beantworten Sie mehrere E-Mails...
- Optimieren Sie den E-Mail-Versand mit E-Mails abrufen, Anbaugeräte (Alles komprimieren, Alles automatisch speichern...), Duplikate entfernen und Kurzbericht...
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:
- Öffentlichkeitsarbeit/Presse Alt + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
- 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
- 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.
Ähnliche Artikel
Löschen Sie mehrere Ordner in großen Mengen in Outlook
Löschen Sie alle doppelten E-Mails aus einem E-Mail-Ordner in Outlook
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 Pro: Batch 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.