Wie kann man eine Liste der Ordner in Outlook abrufen?

Author Siluvia Last modified 2025-08-26

Manchmal kann die Baumstruktur aller E-Mail-Ordner (einschließlich der erstellten persönlichen Ordner) im Navigationsbereich Outlook-Benutzern während ihrer Arbeit helfen. Um die gesamte Baumstruktur der Ordner schnell aufzulisten, kann der VBA-Code Ihnen helfen. In diesem Tutorial erfahren Sie, wie Sie mit VBA-Code ganz einfach eine Liste der Ordner abrufen können.

Liste der Ordner in Outlook mit VBA-Code abrufen

Liste der Ordner in Outlook mit VBA-Code abrufen

Um eine Liste der Ordner in Outlook mit VBA-Code zu erhalten, gehen Sie bitte wie folgt vor.

1. Drücken Sie die Tasten „Alt“ + „F11“ auf der Tastatur, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Doppelklicken Sie dann auf „Projekt1“ > „Microsoft Outlook-Objekt“ > „DieseOutlookSitzung“, um das Fenster „Projekt1 – DieseOutlookSitzung“ zu öffnen. Siehe Screenshot:

the Project1 – ThisOutlookSession window

3. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Fenster Projekt1 – DieseOutlookSitzung ein.

VBA: Liste der Ordner in Outlook abrufen

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

4. Drücken Sie die Taste „F5“ auf der Tastatur, um den VBA-Code auszuführen.

5. Nun erscheint ein Dialogfeld „Makro“. Klicken Sie bitte auf die Schaltfläche „Ausführen“.

a Macro dialog box

6. Warten Sie, bis das Makro ausgeführt wird. Dann wird die Liste aller Ihrer E-Mail-Ordner sofort in einem neu erstellten Nachrichtenfenster aufgelistet. Sie können sie ganz einfach ausdrucken. Siehe Screenshot:

the list of all your email folders is listed out in a created new message window

Hinweis: Dieser VBA-Code kann auf Outlook 2007, 2010 und 2013 angewendet werden.

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...

📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

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

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

Funktionsliste von Kutools für Outlook Jetzt herunterladen Gehe zu Kaufen

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint

Über die Suite ⬇ Suite herunterladen 💳 Suite kaufen