PDA

Vollständige Version anzeigen : Freigegebener Kalender


steenhy
04.01.2018, 16:25
Hallo,
wie kann ich einen freigegebenen Kalender ansprechen?
Ich möchte mit VBA Termine von meinen in einen von einem Kollegen freigegebenen Kalender kopieren.
Bei den eigenen Kalendern gelingt dies über die Folder-Adresse.

Set GetFolder = Outlook.Session.folders(mail)
Set GetFolder = GetFolder.folders(kal_pfad)
Set GetFolder = GetFolder.folders(strFolder)


Damit komme ich beim 'öffentlichen' Kalender nicht weiter.
Gruß,

steenhy
05.01.2018, 08:51
Zur Ergänzung meiner Frage:
Wir benutzen einen Exchange Server...
Gruß,

steenhy
12.01.2018, 13:19
Hier ist ja wenig los...
Habe jetzt eine Lösung gefunden:
Damit werden auch die freigegebenen Kalender angesprochen:
Name des Kalenders mit strFolder übergeben.


Private Function GetFolder(ByVal strFolder As String) As Object
Dim objPane As Outlook.NavigationPane
Dim objModule As Outlook.CalendarModule

Set objPane = Application.ActiveExplorer.NavigationPane
Set objModule = objPane.Modules.GetNavigationModule(olModuleCalendar)

With objModule.NavigationGroups

For g = 1 To .Count
Set objGroup = .Item(g)

For I = 1 To objGroup.NavigationFolders.Count
Set objNavFolder = objGroup.NavigationFolders.Item(I)

' Name des freigegebenen Kalenders : strfolder
If objNavFolder = strFolder Then
Set GetFolder = objNavFolder.Folder
End If
Next
Next
End With
End Function

Gruß,