为特定日历创建约会。 VBA展望答案

【问题标题】：Creating an appointment to a specific calendar. VBA outlook为特定日历创建约会。 VBA展望
【发布时间】：2016-04-11 00:28:38
【问题描述】：

我如何创建一个宏来创建另一个日历的约会。我正在使用的当前宏创建到我的默认日历。提前致谢。

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

【问题讨论】：

您的意思是在您的个人资料中已开设的另一家商店？还是在委托 Exchange 邮箱中？
与多个用户共享的日历。
在交换服务器上是的

标签： vba outlook calendar

【解决方案1】：

调用Application.Session.CreateRecipient，然后将返回的Recipient 对象传递给Application.Session.GetSharedDefaultFolder。然后您可以致电MAPIFolder.Items.Add 添加新约会。

【讨论】：