Wie kann ich das Senden einer Besprechungseinladung in Outlook verzögern? 

Normalerweise können Sie die Funktion "Zustellung verzögern" zum Senden einer Nachricht zu einem bestimmten Zeitpunkt anstatt jetzt anwenden. Manchmal möchten Sie jedoch das Senden einer Besprechungseinladung wie eine E-Mail verzögern. Wie können Sie eine Besprechungseinladung zum gewünschten Zeitpunkt senden, wenn Sie dies in Outlook benötigen?

Verzögern Sie das Senden einer Besprechungseinladung in Outlook mit VBA-Code

---

Verzögern Sie das Senden einer Besprechungseinladung in Outlook mit VBA-Code

Möglicherweise gibt es keine direkte Möglichkeit, eine Einladung zu einem Meeting in Outlook zu verzögern, aber der folgende VBA-Code kann Ihnen einen Gefallen tun. Bitte tun Sie Folgendes:

1. Zunächst sollten Sie eine neue Aufgabe erstellen. Im neuen Aufgabe Fenster:

(1.) Geben Sie das Thema, das Startdatum und das Enddatum der Sitzung an.

(2.) Legen Sie ein Erinnerungsdatum und eine Erinnerungszeit fest, an die Sie die Besprechungseinladung senden möchten.

(3.) Geben Sie die Besprechungsnachricht nach Bedarf ein.

2. Klicken Sie nach dem Erstellen der Aufgabe auf Speichern und schließen Option zum Schließen dieses Fensters.

3. Halten Sie dann die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

4. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession von dem Projekt1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: Verzögerung einer Einladung zum Senden eines Meetings:

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

Hinweis: Im obigen Code: Besprechungstest ist das Thema, das Sie in Schritt 1 für das Meeting erstellt haben. und Sie sollten die Informationen von ändern Empfängeradressen, Treffpunkt, Startzeit und Besprechungsdauer zu deinen eigenen.

5. Speichern und schließen Sie den Code und starten Sie Outlook neu, damit dieser Code wirksam wird.

6. Von nun an sendet Outlook die Besprechungseinladung automatisch, wenn die Erinnerung an das Aufgabenelement zu dem von Ihnen festgelegten Zeitpunkt angezeigt wird.