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 All Day Event”的事件，它被放置为 12:00am 事件而不是日历 UI 上的全天事件（该事件不应该有 12: 00am 时间附在主题名称前面，但由于某种原因它是）。如果我单击事件详细信息，它确实选中了全天事件复选框，并且开始结束时间都是 12:00 AM。

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

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

Answer 1

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

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