将约会添加到 Outlook 默认约会文件夹以及共享文件夹答案

【问题标题】：Adding appointment to outlook default appointment folder as well as shared folder将约会添加到 Outlook 默认约会文件夹以及共享文件夹
【发布时间】：2017-08-27 18:42:51
【问题描述】：

我想使用 VBA 向用户 Outlook 日历添加约会，该约会既显示在执行宏的 Outlook 应用程序日历上，也存在于 Exchange 服务器上的用户共享文件夹中（因此它是显示在用户的智能手机日历等上）。

目前我可以实现/或：

Set myOlApp = Application
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderCalendar)
Set exchFolder = myNamespace.GetSharedDefaultFolder(myOlApp.Session.CurrentUser, olFolderCalendar)
...

Set myAppointment = myOlApp.CreateItem(olAppointmentItem) 'shows in the executing application calendar
'OR
Set myAppointment = exchFolder.items.add(olAppointmentItem) 'shows in the smartphone calendar
'then set whatever details we want for the appointment
With myAppointment
    .ReminderSet = False
    .AllDayEvent = False
    .Sensitivity = olNormal
    .Subject = "on call"
    .Start = onCall(i).Begin
    .Duration = onCall(i).Duration
    .Save
End With

当然，宏可以循环并在默认日历文件夹和交换服务器文件夹中创建新约会。但是，鉴于每个约会都被分配了自己的唯一 ID，这将是一个真正的 hack（也就是说，我们最终会得到 2 个代表相同事件的约会，但每个约会都有不同的唯一 ID）。

有没有办法将相同的约会实例添加到 defaultFolder 和 sharedDefaultFolder 的文件夹集合中？如果没有，是否有一种好方法可以确保约会的两个版本都是精确的克隆，具有相同的唯一标识符等？

【问题讨论】：

标签： vba outlook outlook-2010

【解决方案1】：

outlook中的约会项目有一个我不知道的CopyTo方法，所以保存后，调用这个方法并复制到exchange文件夹似乎解决了我的问题

Set myAppointment = myOlApp.CreateItem(olAppointmentItem)
With myAppointment
    'all the properties we wish to assign here
    .Save
    .CopyTo exchFolder, olCreateAppointment
End With

这个答案最初有 olCopyAsAccept 选项，但后来我发现这将为宏创建的每个约会创建一个已发送邮件项

【讨论】：