Hallo,
ich bin absoluter VBA- Neuling und hab mich mittlerweile soweit durchgekämpft, dass ich über den VBA-Editor mit folgendem Code neben dem Standard-Kalender einen weiteren Kalender per Makro angezeigt bekommen kann.
Sub DispCalendars()
Dim myOlApp As Outlook.Application
Dim myNms As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myRecipient As Outlook.Recipient
Dim myExplorer As Outlook.Explorer
Dim SharedFolder As Outlook.MAPIFolder
Set myOlApp = CreateObject("Outlook.Application")
Set myNms = myOlApp.GetNamespace("MAPI")
Set myFolder = myNms.GetDefaultFolder(olFolderCalendar)
Set myExplorer = myOlApp.ActiveExplorer
Set myExplorer.CurrentFolder = myFolder
Set myRecipient = myNms.CreateRecipient("e1xxxxxx")
Set SharedFolder = myNms.GetSharedDefaultFolder(myRecipient, olFolderCalendar)
myExplorer.SelectFolder SharedFolder
End Sub
Läuft soweit prima, nur wie kann ich meinem Outlook sagen, er soll dieses Makro ausführen, sobald der Benutzer auf das Kalender-Symbol im Outlook klickt?
Ich hab Outlook 2003
DAAAAANKE |