Outlookで会議の招待状の送信を遅らせるにはどうすればよいですか？ 

通常、配信遅延機能を適用して、今ではなく特定の時間にメッセージを送信できます。 ただし、電子メールのように会議への招待状の送信を遅らせたい場合があります。 Outlookで必要に応じて、希望する時間に会議の招待状を送信するにはどうすればよいですか？

OutlookでVBAコードを使用して会議の招待状を送信するのを遅らせる

---

OutlookでVBAコードを使用して会議の招待状を送信するのを遅らせる

おそらく、Outlookで会議の招待を遅らせる直接的な方法はありませんが、以下のVBAコードを使用すると、次のようになります。

1。 まず、新しいタスクを作成する必要があります。 新しいで 仕事 ウィンドウ：

（1.）会議の件名、開始日、終了日を指定します。

（2.）会議の招待状を送信するリマインダーの日時を設定します。

（3.）必要に応じて会議メッセージを入力します。

2。 タスクを作成したら、をクリックしてください 保存して閉じる このウィンドウを閉じるオプション。

3。 次に、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

4。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession から 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

注意：上記のコードでは： ミーティングテスト 手順1で会議用に作成した件名です。 そして、あなたはの情報を変更する必要があります 受信者のアドレス, 待ち合わせ場所, 始まる時間 及び 会議時間 あなた自身に。

5。 コードを保存して閉じてから、Outlookを再起動して、このコードを有効にします。

6。 これ以降、設定した特定の時間にタスクアイテムのリマインダーがポップアップすると、Outlookは会議の招待状を自動的に送信します。