Wie man beim Start von Outlook alle Ordner per VBA automatisch erweitert

Viele Nutzer wünschen sich, dass beim Start von Outlook alle Ordner automatisch erweitert werden. Outlook unterstützt dies jedoch nicht standardmäßig. Um dies zu realisieren, ist VBA-Code erforderlich. Dieser Beitrag bietet Ihnen eine kurze Anleitung.

Möglicherweise haben Sie in Outlook zahlreiche Unterordner in den Standardordnern erstellt. Um jederzeit schnell darauf zugreifen zu können, möchten Sie vielleicht alle Ordner standardmäßig geöffnet lassen. Der erste Schritt besteht darin, Outlook so einzustellen, dass die Ordner beim Start automatisch geöffnet werden. Da Outlook diese Funktion nicht standardmäßig bietet, müssen Sie Makros verwenden. Im Folgenden zeigen wir Ihnen, wie Sie dies mit VBA realisieren. Wie Sie VBA anwenden, erfahren Sie in einem anderen Artikel – „So führen Sie VBA-Code in Outlook aus".

Automatisches Erweitern aller Ordner beim Start von Outlook

1. Drücken Sie zunächst in Ihrem Outlook auf „Alt + F11“, um auf den VBA-Editor zuzugreifen.
2. Fügen Sie dann im neuen Fenster den Code in das Projekt "ThisOutlookSession" ein.

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. Schließen Sie danach den VBA-Editor.
4. Beenden Sie anschließend die Outlook-Anwendung ordnungsgemäß.
5. Starten Sie anschließend Outlook. Das Makro wird nun automatisch ausgeführt.
6. Nach dem Start von Outlook können Sie sehen, dass alle Ordner erweitert wurden, wie in der folgenden Abbildung dargestellt.

Halten Sie alle bösartigen Makros in Schach

Haben Sie jemals E-Mails erhalten, die mit verdächtigen Dateien angehängt oder mit unbekannten Links eingebettet sind? Wenn Sie mit solchen E-Mails konfrontiert werden, müssen Sie normalerweise Ihre Wachsamkeit erhöhen. Sie sollten ihnen niemals ohne weiteres vertrauen, da sie möglicherweise Viren übertragen. Sobald Sie die Anhänge heruntergeladen oder die Links geöffnet haben, wird möglicherweise nicht nur Outlook, sondern auch der Computer angegriffen. Zu diesem Zeitpunkt müssen Sie Outlook reparieren Datei. Es kann ziemlich knorrig sein, wenn Sie nicht über ein aktualisiertes Outlook-Backup verfügen oder ein leistungsstarkes Wiederherstellungstool verwenden, z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Server Korruption und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX