ich habe den unten stehenden Code im Internet gefunden. Er listet mir alle Ordner in Outlook auf welche zu meinem Kalender gehören. Jetzt benötige ich jedoch eine Auflistung aller "Gruppenkalender" (shared calendar).
Im Endeffekt möchte ich die Informationen eines Gruppenkalenders in Excel abspeichern. Der Kalender ist teil einer SharePoint 365 Gruppe und auch in Teams eingebettet.
Irgendjemand eine Idee wie ich an die Daten komme?
VG,
Benjamin
Dim objOlApp As Object, objOlNS As Object
Dim objOlFldr As Object, objSubFldr As Object
Dim k As Long
Set objOlApp = CreateObject("Outlook.Application")
Set objOlNS = objOlApp.GetNamespace("MAPI")
k = 1
For Each objOlFldr In objOlNS.Folders
For Each objSubFldr In objOlFldr.Folders
Sheets("Tabelle1").Cells(k, 1) = objOlFldr.Name
Sheets("Tabelle1").Cells(k, 2) = objSubFldr.Name
k = k + 1
Next
Next
Set objOlNS = Nothing
Set objOlApp = Nothing