Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie automatisch alle Ordner beim Starten von Outlook zu erweitern?

Wenn Sie im Allgemeinen einen Ordner im Navigationsbereich erweitern oder reduzieren und dann Outlook schließen, wird der Ordner beim Neustart von Outlook erweitert oder minimiert. Aber gibt es jetzt eine Möglichkeit, alle Ordner automatisch zu erweitern, wenn Sie Outlook starten? Dieser Artikel wird eine VBA einführen, um die Aufgabe abzuschließen.

Alle Ordner beim Starten von Outlook mit VBA automatisch erweitern

Kutools for Outlook: 100 + Neue erweiterte Tools für Outlook.
Office Tab: Aktivieren Sie das Bearbeiten von Registerkarten und das Durchsuchen in Office, Genau wie Chrome, Firefox, IE 8 / 9 / 10.
Klassisches Menü: Bringe alte Menüs und Symbolleisten zurück zu Office 2007, 2010, 2013, 2016 und 2019.

Pfeil blaue rechte BlaseAlle Ordner beim Starten von Outlook mit VBA automatisch erweitern

Diese Methode führt eine VBA ein, um automatisch alle Ordner im Navigationsbereich zu erweitern, wenn Sie Outlook starten. Bitte wenden Sie diesen VBA wie folgt an:

1. Drücken Sie Andere + F11 Schlüssel gleichzeitig, um das Microsoft Visual Basic für Applikationen-Fenster zu öffnen.

2. Erweitere das Projekt 1 und Microsoft Outlook-Objekte Doppelklicken Sie im Projektfenster, um das Dialogfeld zu öffnen ThisOutLookSession Fenster, und fügen Sie dann unter VBA-Code einfügen.

VBA: Alle Ordner in Outlook automatisch erweitern

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3. Speichern Sie den Code, und schließen Sie das Microsoft Visual Basic für Applikationen-Fenster.

Von jetzt an, wenn Outlook neu gestartet wird, werden alle Ordner automatisch in Outlook erweitert.Note: Dieser VBA kann die komprimierten Suchordner beim Neustarten von Outlook nicht öffnen.


Pfeil blaue rechte BlaseIn Verbindung stehende Artikel



Kutools for Outlook

Mehr als 100 Erweiterte Funktionen für Outlook 2010, 2013, 2016, 2019 und 365

Screen-Kutools für Ausblick klein für Banner 201812

Weitere Funktionen | Gratis Download | Nur $ 39.00 für Hunderte von Funktionen

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Selvi · 7 months ago
    Thank you so much.. It solved my problem. :)