VBA 无法发送日历约会

Question

当我手动进行日历提醒/约会时，我可以单击“邀请参加者”并选择要邀请的人，然后单击“发送”，每个人都会收到该日历提醒/约会。

我有以下代码以编程方式进行提醒，但它不会发送给预期的收件人。如果我在脚本运行后打开提醒并单击“邀请参加者”，我会看到列表中填满了我想要向其发送提醒的人，所以我不确定为什么它实际上没有将提醒发送给他们。

任何人都可以为我解释一下吗？

Private Function CreateAppointment(SubjectStr As String, BodyStr As String, StartTime As Date, EndTime As Date, AllDay As Boolean)
    Dim olApp As Outlook.Application
    Dim Appt As Outlook.AppointmentItem
    ' Only create the reminder if there's no duplicate
    If (CheckForDuplicates(SubjectStr) = False) Then
        Set olApp = CreateObject("Outlook.Application")
        Set Appt = olApp.CreateItem(olAppointmentItem)
        Appt.Recipients.Add ("John Doe")
        Appt.Recipients.ResolveAll
        Appt.Subject = SubjectStr
        Appt.Start = StartTime
        Appt.End = EndTime
        Appt.AllDayEvent = AllDay
        Appt.Body = BodyStr
        Appt.ReminderSet = True
        Appt.Save
        Appt.Send
    End If
    Set Appt = Nothing
    Set olApp = Nothing
End Function

Answer 1

session 是一种特定类型的约会——邀请其他人参加的约会。

为了预约 session ，您需要做的不仅仅是邀请与会者。您需要将状态设置为“ session ”。将此添加到您的代码中:

Appt.MeetingStatus = olMeeting

还要注意你设置了提醒，但没有设置提醒时间。例如，

Appt.ReminderMinutesBeforeStart = 30

最后，如果这是 Outlook VBA，为什么要使用 CreateObject？您应该使用 native 应用程序对象来派生所有对象。

即代替

Set olApp = CreateObject("Outlook.Application")

你会用

Set olApp = Outlook.Application

HTH