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

通常，您可以应用“延迟传递”功能在特定时间（而不是现在）发送消息。 但是，有时您想延迟发送会议邀请（如电子邮件）。 如何根据需要在Outlook中按需要的时间发送会议邀请？

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

---

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

可能是没有直接的方法可以在Outlook中延迟会议邀请，但是下面的VBA代码可以帮您一个忙，请这样做：

1。 首先，您应该创建一个新任务。 在新 任务 窗口：

（1.）指定会议的主题，开始日期，结束日期；

（2.）设置要发送会议邀请的提醒日期和时间；

（3.）根据需要键入会议消息。

2。 创建任务后，请单击 保存并关闭 关闭此窗口的选项。

3。 然后，按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

4。 在 Microsoft Visual Basic应用程序 窗口，双击 本次展望会议 来自 Project1（VbaProject.OTM） 窗格以打开模式，然后将以下代码复制并粘贴到空白模块中。

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

备注：在上面的代码中： 会议测试 是您在步骤1中为会议创建的主题； 并且，您应该更改以下信息 收件人地址, 会议地点, 开始时间 和 会议时间 对你自己。

5。 保存并关闭代码，然后重新启动Outlook，以使此代码生效。

6。 从现在开始，当您在设置的特定时间弹出任务项目提醒时，Outlook将自动发送会议邀请。