使用 VBA 创建 Outlook 事件（不是约会！）答案

【问题标题】：Create Outlook Event using VBA (Not an appointment!)使用 VBA 创建 Outlook 事件（不是约会！）
【发布时间】：2018-08-13 12:58:31
【问题描述】：

所以有一个线程SO Link Here 链接了如何进行前景“事件”，但实际上它创建的是约会，而不是事件。

可以阅读有关HERE 的差异。

我的问题很简单...如何使用 VBA 创建实际事件，而不是约会？谢谢！

【问题讨论】：

标签： c# vba outlook

【解决方案1】：

约会和事件之间的区别在于事件持续 24 小时或更长时间，正如您所知，事件不会在用户日历中显示为占用的时间块。相反，它们显示为横幅

要使用 vba 创建全天活动，您需要将 AppointmentItem 对象的 AllDayEvent 属性设置为 true。然后将 Start 属性设置为 12:00 A.M。（午夜）您希望活动开始的那一天，End 属性到凌晨 12:00在您希望活动结束的第二天。

VBA 示例

Option Explicit
Public Sub Example()
    Dim Obj_Event As Outlook.AppointmentItem
    Set Obj_Event = Application.CreateItem(olAppointmentItem)

    With Obj_Event
        .Subject = "ALL Day Event Example"
        .Location = "stackoverflow.com"
        .AllDayEvent = True
        .Start = Format("03/10/2018 12:00 AM")
        .End = Format("03/11/2018 12:00 AM")
        .Save
        .Display
    End With
End Sub

C# 示例

private void AllDayEventExample()
{
    Outlook.AppointmentItem appt = Application.CreateItem(
        Outlook.OlItemType.olAppointmentItem)
        as Outlook.AppointmentItem;
    appt.Subject = "Developer's Conference";
    appt.AllDayEvent = true;
    appt.Start = DateTime.Parse("6/11/2007 12:00 AM");
    appt.End = DateTime.Parse("6/16/2007 12:00 AM");
    appt.Display(false);
}

MSDN: How to: Create an Appointment That Is an All-Day Event

【讨论】：

此解决方案正确地创建了一个事件项。谢谢！