VBA：创建 Outlook 全天事件约会

Question

我正在尝试在 Excel 中导出一个表格，以在 Outlook 中创建具有给定主题、开始日期、结束日期的全天事件。这是我所拥有的：

With olAppt
    .AllDayEvent = True
    .Start = "7/29/2015"
    .End = "7/29/2015"
    .Subject = "All Day Event"
    .Save
End With

我得到的是一个事件，上面写着“12:00am 全天事件”，它被放置为一个 12:00am 事件而不是日历 UI 上的全天事件（该事件不应该附加 12:00am 时间在主题名称前面，但由于某种原因它是）。如果我单击事件详细信息，它会选中全天事件复选框，并且开始结束时间都是上午 12:00。

我不想向上滚动才能在 UI 中看到上午 12:00 的事件，而是希望在顶部显示应该放置全天事件的事件。

以前有人遇到过这个问题吗？谢谢！

Answer 1

从https://msdn.microsoft.com/en-us/library/office/ff184629.aspx：

要将约会设置为全天事件，您必须在希望事件开始的那一天将 Start 属性设置为 12:00 AM（午夜），并将 End 属性设置为希望事件开始后的第二天的 12:00 AM事件结束。如果您将开始或结束时间设置为非 12:00 AM 的日期和时间值，则约会将成为多天约会而不是全天事件。例如，如果您的活动持续时间只有一天，请将 Start 属性设置为您希望活动开始当天的 12:00 AM，并将 End 属性设置为第二天的 12:00 AM。您应该始终在开始日期后一天以上的日期将 End 属性设置为 12:00 AM。