Outlookで会議の招待を遅延させるにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

通常、特定の時間にメッセージを送信するために「配信の遅延」機能を使用できます。しかし、時にはメールのように会議の招待を遅らせたい場合があります。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