创建约会到特定日历。 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，则返回Recipient对象传递给Application.Session.GetSharedDefaultFolder。然后您可以致电MAPIFolder.Items.Add添加新的约会。