VBA:创buildoutlook全天事件预约

我试图在Excel中导出表格,以便在给定主题,开始date,结束date的Outlook中创build全天事件。 这是我有:

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

我所得到的是一个事件,上面写着“上午12:00”,它被作为上午12:00的事件,而不是日历的UI上的全天事件(事件不应该有上午12:00在主题名称的前面,但由于某种原因,它是)。 如果点击事件详细信息,则确认全天事件checkbox已选中,并且开始结束时间为上午12:00。

我不想滚动查看用户界面上午12:00的事件,而是想要放置全天事件的顶部事件。

任何人都遇到过这个问题? 谢谢!

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

要将预约设置为全天事件,您必须在要开始事件的那一天将“开始”属性设置为凌晨12:00(午夜),并将“结束”属性设置为您希望在事件结束。 如果将“开始”或“结束”时间设置为12:00 AM以外的date和时间值,则约会将成为多日预约而不是全天事件。 例如,如果您的活动持续时间仅为一天,请在要让活动开始的那一天将“开始”属性设置为12:00 AM,并在第二天将“结束”属性设置为12:00 AM。 您应该始终将结束属性设置为开始date后超过一天的date中午12:00。