Question

我尝试在Excel中导出表格，以在给定主题，开始日期，结束日期的Outlook中创建全天活动。这就是我所拥有的：

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

我得到的是一个活动，上面写着＆＃34; 12：00全天活动＆＃34;并且它被放置为12:00 am事件而不是日历的UI上的全天事件（事件不应该在主题名称前面附上12:00 am时间，但由于某种原因它是）。如果我点击事件详细信息，它会检查全天事件复选框，并且开始结束时间为凌晨12:00。

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

之前有人遇到过此问题吗？谢谢！

Answer 1

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

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

VBA：创建Outlook全日活动预约

1 个答案: