如何延遲在 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 將自動傳送會議邀請。