创建特定日历的约会。 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添加新约会。