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

作者：小陽最後修改時間：2024-08-21

通常，您可以應用“延遲傳遞”功能在特定時間而不是現在發送消息。但是，有時您想延遲發送會議邀請（如電子郵件）。如何根據需要在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