anderen Outlook_Kalender öffnen
15.05.2017 14:10:19
Manfred
habe mal wieder ein Problem.
Ich würde gerne mit einem Marko aus Excel heraus einen bestimmten Kalender in Outlook 2013 öffnen.
Habe dieses Makro aus den weiten des Internets angepasst, jedoch ich bekomme im letzeten Set CalendarFolder = eine fehlermeldung Laufzeitfehler 05 ungültiger Prozeduraufruf oder ungültiges Argument.
Sub Entegast()
Dim myOlApp As Object
Dim myNamespace As Object
Dim myRecipient As Object
Dim CalendarFolder As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("Dan Blocker")
myRecipient.Resolve
If myRecipient.Resolved Then
Call ShowCalendar(myNamespace, myRecipient)
End If
End Sub
Sub ShowCalendar(myNamespace, myRecipient)
Dim CalendarFolder As Object
Set CalendarFolder = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar)
CalendarFolder.Display
End Sub
Mit freundlichen Grüßen
Manfred