如何在Outlook中延遲傳送會議邀請？

Author: Xiaoyang Last Modified: 2025-05-13

通常，您可以使用延遲傳送功能來在特定時間而不是立即傳送郵件。但是，有時您希望像延遲傳送郵件一樣延遲傳送會議邀請。那麼，如何在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) 窗格中的 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