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ウィンドウで、ThisOutlookSessionを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

注：上記のコードで使用しているMeeting testは、手順1 で作成した会議の件名です。また、受信者のアドレス、会議の場所、開始時刻、および会議の所要時間は、それぞれご自身の情報に置き換えてください。

5。コードを保存して閉じ、Outlook を再起動すると、このコードが有効になります。

6。設定した特定の時刻にタスクのリマインダーが表示されると、Outlook が自動的に会議招待メールを送信します。