特定の予定表への予定の作成。 VBAの見通し

Question

別のカレンダーへの予定を作成するマクロを作成するにはどうすればよいですか。現在使用しているマクロは、デフォルトのカレンダーに作成されます。前もって感謝します。

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

コールApplication.Session.CreateRecipient、その後、Application.Session.GetSharedDefaultFolderに戻っRecipientオブジェクトを渡します。 MAPIFolder.Items.Addに電話して、新しい予定を追加することができます。