使用VBA创建Outlook事件(不是约会！) [英] Create Outlook Event using VBA (Not an appointment!)

问题描述

因此有一个线程 SO链接此处链接了如何使前景成为事件"，但实际上，它创建约会而不是事件.

So there is a thread SO Link Here that links how to make an outlook "event" but in reality it creates an appointment, not an event.

可以阅读有关我的问题很简单...如何创建实际事件，而不是使用VBA进行约会?谢谢！

My question is simple... How do I create an actual event, not an appointment using VBA? Thanks!

推荐答案

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

要使用vba创建全天活动，您需要设置 将属性开始 开始到12:00 AM (您希望活动开始的当天的午夜)和

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:如何:创建一个约会全天活动

这篇关于使用VBA创建Outlook事件(不是约会！)的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！