Guten Tag
Ich suche eine Möglichkeit per Makro in Outlook die Kalender von bestimmten Personen (Abgleich mit AD - Globales Adressbuch in Outlook -> Filtern nach einer bestimmten Abteilung) anzuzeigen. Diese Kalender sollten dann "übereinander" gelegt (überlagert anzeigen) und in der Monatsansicht angezeigt werden. Zusätzlich sollen nur die Termine angezeigt werden, welche im Betreff das Wort "Absenz" drin haben.
Den Kalenderaufruf funktioniert schon, allerdings nicht via AD:

Option Explicit

Sub DispCalendars()
Dim myOlApp As Outlook.Application
Dim myNms As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myRecipient1 As Outlook.Recipient
Dim myRecipient2 As Outlook.Recipient
Dim myExplorer As Outlook.Explorer
Dim SharedFolder1 As Outlook.MAPIFolder
Dim SharedFolderOR As Outlook.MAPIFolder
Dim SharedFolderKAR As Outlook.MAPIFolder
'OR und KAR sind Variablen und bezeichnen die beiden Kalender

Set myOlApp = CreateObject("Outlook.Application")
Set myNms = myOlApp.GetNamespace("MAPI")
Set myFolder = myNms.GetDefaultFolder(olFolderCalendar)
Set myExplorer = myOlApp.ActiveExplorer
Set myExplorer.CurrentFolder = myFolder

Set myRecipient1 = myNms.CreateRecipient("Müller Hans")
Set myRecipient2 = myNms.CreateRecipient("Bauer Ulrich")

Set SharedFolderOR = myNms.GetSharedDefaultFolder(myRecipient1, olFolderCalendar)
Set SharedFolderKAR = myNms.GetSharedDefaultFolder(myRecipient2, olFolderCalendar)

'Anzeige andere Kalender
myExplorer.SelectFolder SharedFolderOR
myExplorer.SelectFolder SharedFolderKAR


'Anzeige eigener Kalender
'Name durch den Namen des eigenen Kalenders ersetzen
Set myRecipient1 = myNms.CreateRecipient("Meinnachname Vorname")
Set SharedFolder1 = myNms.GetSharedDefaultFolder(myRecipient1, olFolderCalendar)
myExplorer.SelectFolder SharedFolder1

End Sub

'damit das Makro automatisch startet
Private Sub Application_Startup()
DispCalendars


End Sub
 

Vielen Dank jetzt schon für die Hilfe! :-)