Question

所以有一个线程SO Link Here链接如何制作一个展望＆＃34;事件＆＃34;但实际上它创造了一个约会，而不是一个事件。

可以阅读有关HERE的差异。

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

Answer 1

约会和事件之间的差异是事件持续24小时或更长时间，因为您知道事件不会在用户的日历中显示为占用的时间块。相反，它们显示为横幅

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

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

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

1 个答案: