如何在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 窗口，雙擊 本次展望會議 來自 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將自動發送會議邀請。