Erstellen eines Termins für einen bestimmten Kalender. VBA Outlook

Question

Wie erstelle ich ein Makro, um einen Termin zu einem anderen Kalender zu erstellen. Das aktuelle Makro, das ich verwende, erstellt meinen Standardkalender. Danke im Voraus.

Sub test() 

Dim myItem As Object 
Set myItem = Application.CreateItem(olAppointmentItem) 
myItem.MeetingStatus = olMeeting 
myItem.Subject = "Strategy Meeting" 
myItem.Location = "Conf Rm All Stars" 
myItem.Start = #4/11/2016 1:30:00 PM# 
myItem.Duration = 10 
myItem.Display 

End Sub 

Answer 1

Anruf Application.Session.CreateRecipient, passiert dann das zurückgegebene Objekt RecipientApplication.Session.GetSharedDefaultFolder. Sie können dann MAPIFolder.Items.Add anrufen, um einen neuen Termin hinzuzufügen.