Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie bekomme ich eine Liste der Ordner in Outlook?

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 schnell die gesamten Baumstrukturordner aufzulisten, kann Ihnen der VBA-Code helfen. In diesem Tutorial erfahren Sie, wie Sie mit VBA-Code einfach eine Liste von Ordnern abrufen können.

Liste der Ordner in Outlook mit VBA-Code abrufen

Registerkarte "Office" - Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie die Arbeit erheblich ...
Kutools für Outlook - Bringt 100 leistungsstarke erweiterte Funktionen in Microsoft Outlook
  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Regeln; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten, wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen im Mail-Gespräch; Antworten Sie auf viele E-Mails gleichzeitig. Begrüßung automatisch hinzufügen bei der Antwort; Automatisches Hinzufügen von Datum und Uhrzeit zum Betreff ...
  • Anbaugeräte: Automatisch trennen, Alle komprimieren, Alle umbenennen, Alle automatisch speichern ... Kurzbericht, Ausgewählte Mails zählen, Doppelte Mails und Kontakte entfernen ...
  • Mehr als 100 erweiterte Funktionen werden Löse die meisten deiner Probleme in Outlook 2010-2019 und 365. 60-tägige kostenlose Testversion mit vollem Funktionsumfang.

Pfeil blau rechte BlaseListe der Ordner in Outlook mit VBA-Code abrufen

Gehen Sie wie folgt vor, um eine Liste der Ordner in Outlook mit VBA-Code abzurufen.

1. Drücken Sie die Taste Andere + F11 Tasten auf der Tastatur zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Doppelklicken Sie dann auf Project1 > Microsoft Outlook-Objekt > DieseOutlookSession öffnen Projekt1 - ThisOutlookSession Fenster. Siehe Screenshot:

3. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Fenster Project1 - ThisOutlookSession 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 Taste auf der Tastatur, um den VBA-Code auszuführen.

5. Nun a Makro Das Dialogfeld wird angezeigt. Klicken Sie auf Run .

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

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


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Say something here...
symbols left.
You are guest
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.
    Luis Gonzalez · 5 years ago
    For get the size of the folders how do you do it?
  • To post as a guest, your comment is unpublished.
    Master Blaster · 6 years ago
    Working perfect with OLK 365, Thank you!