Outlook Folderstruktur nach Excel kopieren
17.02.2017 12:54:01
Manfred
Wie kann man die Folder Struktur von Outlook nach Excel kopieren. Ich habe folgendes versucht. Meine Emails sind in Hauptgruppen mit Untergruppen gespeichert. Die oberste Gruppe (Folder) heißt "Eingang Gruppen". Das funktioniert aber leider nicht. Wer kann hier helfen. Danke.
Sub ListOutlookFolders()
Dim OlApp As Object
Dim objFolder As Object
Dim item As Object
Set xx = Worksheets("Tabelle1")
xx.Cells.Clear
xx.Cells(1, 1) = "Folder Name"
Set OlApp = CreateObject("outlook.application")
Set objFolder = OlApp.GetNameSpace("MAPI").Folders("Eingang Gruppen")
i = 1
For Each item In objFolder.Items
i = i + 1
xx.Cells(i, 1).Value = item.Value
Next
Set objFolder = Nothing
Set OlApp = Nothing
End Sub