如何在 Outlook 中延迟发送会议邀请？

通常，您可以通过“延迟发送”功能，在指定时间发送邮件，而不是立即发送。但有时，您也希望像发送邮件一样，延迟发送会议邀请。那么，在 Outlook 中，如何根据您的需求，在设定的时间发送会议邀请？

使用 VBA 代码在 Outlook 中延迟发送会议邀请

---

使用 VBA 代码在 Outlook 中延迟发送会议邀请

也许 outlook 并没有直接延迟发送会议邀请的方法，但以下 VBA 代码可以帮您实现，请按以下步骤操作：

1. 首先，您需要新建一个任务。在新建的任务窗口中：

（1.）填写会议主题、开始日期、结束日期等相关信息；

（2.）设置您希望发送会议邀请的提醒日期和时间。

（3.）根据需要填写会议内容。

2. 创建任务后，请点击保存并关闭选项，即可关闭此窗口。

3. 接着，按下 ALT + F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

4. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1(VbaProject.OTM) 窗格下的 ThisOutlookSession，打开该模块，然后将以下代码复制粘贴到空白模块中。

VBA 代码：延迟发送会议邀请：

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

注意：在上述代码中，Meeting test 为您在第 1 步创建的会议主题；同时，您需根据实际情况修改收件人地址、会议地点、开始时间和会议时长。

5. 保存并关闭代码后，重启 Outlook 即可使代码生效。

6. 从现在起，每当任务提醒在您设定的具体时间弹出时，Outlook 都会自动发送会议邀请。