Zum Hauptinhalt springen

Wie exportiere und drucke ich die Liste aller Ordner und Unterordner in Outlook?

Author: Kelly Last Modified: 2025-08-06

Im Allgemeinen können Sie die Tastenkombination „Strg“ + „6“ verwenden, um die Liste aller Ordner im Navigationsbereich von Outlook anzuzeigen. Allerdings können Sie die Ordnerliste nicht direkt ausdrucken. Dieser Artikel stellt zwei VBA-Skripte vor, um die Liste aller Ordner und ihrer Unterordner in Outlook zu exportieren und zu drucken.

Exportieren und Drucken der Liste aller Outlook-Ordner und ihrer Unterordner in einer neuen E-Mail

Diese Methode führt ein VBA-Skript ein, das die Liste aller Ordner und ihrer Unterordner eines bestimmten E-Mail-Kontos in eine neue E-Mail in Outlook exportiert. Anschließend können Sie die Ordnerliste ganz einfach ausdrucken.

1. Drücken Sie „Alt“ + „F11“, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Exportieren der Liste der Ordner und Unterordner in einer neuen E-Mail in Outlook

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.MailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)
Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

For i = CurrentFolder.Folders.Count To 1 Step -1
    Set oFolder = CurrentFolder.Folders(i)
    sFolderPaths = oFolder.FolderPath
    gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
    If oSubFolder.Name <> "Deleted Items" Then
        ProcessFolder oSubFolder
    End If
Next
End Sub

3. Drücken Sie „F5“, um das VBA auszuführen.

4. Wählen Sie im erscheinenden Dialogfeld „Ordner auswählen“ das E-Mail-Konto aus, dessen Ordnerliste Sie drucken möchten, und klicken Sie auf „OK“.

Select folder dialog

5. Die Ordnerliste des ausgewählten Kontos wird in eine neue E-Mail kopiert, wie unten gezeigt. Klicken Sie auf „Datei“ > „Drucken“, um die Ordnerliste zu drucken.

Generated email with folder list

6. Schließen Sie nach dem Drucken die neue E-Mail, ohne sie zu speichern.

Exportieren und Drucken der Liste aller Outlook-Ordner und ihrer Unterordner in Notepad

Diese Methode führt ein VBA-Skript ein, das die Liste aller Ordner und ihrer Unterordner eines bestimmten E-Mail-Kontos von Outlook nach Notepad exportiert. Anschließend können Sie die Ordnerliste ganz einfach ausdrucken.

1. Drücken Sie „Alt“ + „F11“, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie dann den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Exportieren der Liste aller Outlook-Ordner und -Unterordner von Outlook nach Notepad

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

Set objOutlook = CreateObject("Outlook.Application")
Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
    Set Folders = F.Folders
    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
    If Result = 6 Then
        gCreateTree = True
    Else
        gCreateTree = False
    End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
    gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders Folders

    Set F = Nothing
    Set Folders = Nothing
    Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F
For Each F In Folders
    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
    CreateFolderTree = Mid(OLKfolderpath, 3)
Else
    Dim i, x, OLKprefix
    i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))
    For x = gBase To i
        OLKprefix = OLKprefix & "-"
    Next
    CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3. Drücken Sie „F5“, um das VBA auszuführen. Wählen Sie im sich öffnenden Dialogfeld „Ordner auswählen“ das E-Mail-Konto aus, dessen Ordnerliste Sie exportieren und drucken möchten, und klicken Sie auf „OK“.

Select folder dialog

4. Das Dialogfeld „Ordnerstruktur ausgeben“ wird angezeigt. Klicken Sie je nach Wunsch auf „Ja“ oder „Nein“, um festzulegen, ob Einrückungen für die Struktur enthalten sein sollen.

Prompt for tree creation

Jetzt wird eine Textdatei namens „Outlook-Ordner“ erstellt und auf Ihrem Desktop gespeichert, wie unten gezeigt:

Outlook-Folders text file

5. Doppelklicken Sie, um die neue Textdatei zu öffnen, und klicken Sie dann auf „Datei“ > „Drucken“, um die exportierte Liste der Outlook-Ordner zu drucken.

AI-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (per Klick-Zauberei!) KOSTENLOS

Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem AI-Mail-Assistenten von Kutools für Outlook. Dieses leistungsstarke Tool lernt aus Ihren früheren E-Mails, um intelligente und genaue Antworten anzubieten, Ihren E-Mail-Inhalt zu optimieren und Ihnen das Verfassen und Überarbeiten von Nachrichten mühelos zu ermöglichen.
doc ai email handle

Diese Funktion unterstützt:

  • Intelligente Antworten: Erhalten Sie Antworten, die aus Ihren früheren Gesprächen erstellt wurden – maßgeschneidert, präzise und sofort einsatzbereit.
  • Verbesserter Inhalt: Optimieren Sie Ihren E-Mail-Text automatisch für Klarheit und Wirkung.
  • Müheloses Verfassen: Geben Sie einfach Schlüsselwörter ein und lassen Sie die KI den Rest erledigen, mit mehreren Schreibstilen.
  • Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
  • Zusammenfassung: Erhalten Sie prägnante Übersichten über lange E-Mails auf Knopfdruck.
  • Weltweite Reichweite: Übersetzen Sie Ihre E-Mails ganz einfach in jede Sprache.

Diese Funktion unterstützt:

  • Intelligente E-Mail-Antworten
  • Optimierter Inhalt
  • Schlüsselwortbasierte Entwürfe
  • Intelligente Inhaltserweiterung
  • E-Mail-Zusammenfassung
  • Mehrsprachige Übersetzung

Das Beste daran ist, dass diese Funktion für immer komplett kostenlos ist! Zögern Sie nicht – laden Sie den AI-Mail-Assistenten noch heute herunter und genießen Sie!

Verwandte Artikel

Ansicht der Ordnerliste in Outlook anzeigen oder ausblenden

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook startet kostenlose Version!

Erleben Sie das komplett neue Kutools für Outlook mit über100 beeindruckenden Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mail mühelos zu bearbeiten – darunter Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Erstellen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP) /E-Mails zeitgesteuert senden /Automatische CC/BCC nach Regel beim Senden von E-Mails /Automatische Weiterleitung (Erweiterte Regeln) /Automatisches Hinzufügen von Begrüßungen / Mehrfache Empfänger-E-Mails automatisch in einzelne E-Mail-Nachrichten aufteilen...

📨 E-Mail-Verwaltung: E-Mails zurückrufen /Betrugsversuche anhand des Betreffs und anderer Kriterien blockieren /Duplikate E-Mails löschen /Erweiterte Suche /Ordner organisieren...

📁 Anhänge Pro:Stapelweise speichern /Stapelweise abtrennen /Stapelweise komprimieren /Automatisch speichern /Automatisch abtrennen/Automatische Komprimierung...

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

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

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Kontakte stapelweise aus ausgewählten E-Mails hinzufügen /Eine 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!

Entsperren Sie Kutools für Outlook sofort mit nur einem Klick. Warten Sie nicht, laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

kutools for outlook features1 kutools for outlook features2