Excel VBA:创建Outlook全天活动约会

我正在尝试导出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 AM

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

以前有人遇到过这个问题吗？谢谢大家!

来自：

若要使约会成为全天活动，必须将开始属性设置为活动开始当天的午夜12:00，并将结束属性设置为活动结束后的第二天的凌晨12:00。如果将“开始时间”或“结束时间”设置为上午12:00以外的日期和时间值，则约会将变为多日约会，而不是全天事件。例如，如果事件持续时间只有一天，请将“开始”属性设置为事件开始当天的12:00 A.M.，并将“结束”属性设置为第二天的12:00 A.M。在开始日期后超过一天的日期，应始终将End属性设置为12:00 A.M

发件人：

若要使约会成为全天活动，必须将开始属性设置为活动开始当天的午夜12:00，并将结束属性设置为活动结束后的第二天的凌晨12:00。如果将“开始时间”或“结束时间”设置为上午12:00以外的日期和时间值，则约会将变为多日约会，而不是全天事件。例如，如果事件持续时间只有一天，请将“开始”属性设置为事件开始当天的12:00 A.M.，并将“结束”属性设置为第二天的12:00 A.M。在开始日期后超过一天的日期，应始终将End属性设置为12:00 A.M

---

此外，还应将AppointmentItem对象的AllDayEvent属性设置为true。此外，还应将AppointmentItem对象的AllDayEvent属性设置为true。