Outlook Ordner Liste Exportieren

Outlook starten und ALT+F11 drücken um den Visual Basic Editor zu öffnen, danach auf Projekt1 → Microsoft Outlook Objekte → ThisOutlookSession Doppelklicken, damit ein neues Projekt geöffnet wird:

Im leeren Projekt Fenster folgenden Code einfügen: <sxh vb> 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 </sxh>

Danach F5 drücken und das Skript ausführen:

Wenn das Skript durchgelaufen ist erscheint eine neue E-Mail Nachricht mit der Auflistung aller Ordner:


Sie haben weitere Fragen zu dieser Anleitung und möchten gerne mehr Informationen oder brauchen Unterstützung? Wir helfen Ihnen gerne, unsere Kontaktdaten finden Sie hier: https://df-informatik.ch/kontakt/