Wie kann man das Versenden einer Besprechungseinladung in Outlook verzögern?

Normalerweise können Sie die Funktion „Zeitgesteuertes Senden“ nutzen, um eine Nachricht zu einem bestimmten Zeitpunkt statt sofort zu versenden. Doch wie senden Sie eine Besprechungseinladung in Outlook zum gewünschten Zeitpunkt – ähnlich wie eine zeitgesteuerte E-Mail?

Verzögern des Sendens einer Besprechungseinladung in Outlook mithilfe von VBA-Code

---

Verzögern des Sendens einer Besprechungseinladung in Outlook mithilfe von VBA-Code

Es gibt zwar möglicherweise keine direkte Möglichkeit, das Senden einer Besprechungseinladung in Outlook zu verzögern – doch der folgende VBA-Code kann Ihnen dabei helfen. Gehen Sie dazu wie folgt vor:

1. Erstellen Sie zunächst eine Aufgabe. Im neuen Aufgabe-Fenster:

(1.) Geben Sie Betreff, Startdatum, Enddatum für die Besprechung an;

(2.) Legen Sie ein Erinnerungsdatum und eine Uhrzeit fest, zu der die Besprechungseinladung gesendet werden soll;

(3.) Verfassen Sie Ihre Besprechungsnachricht ganz nach Ihren Anforderungen.

2. Klicken Sie nach dem Erstellen der Aufgabe auf die Option Speichern und schließen, um dieses Fenster zu schließen.

3. Drücken Sie anschließend die Tastenkombination ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

4. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications im Bereich ThisOutlookSession des Projekts Project1 (VbaProject.OTM), um das Modul zu öffnen, und fügen Sie anschließend den folgenden Code in das leere Modul ein.

VBA-Code: Verzögern des Sendens einer Besprechungseinladung:

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 steht Meeting test für den Betreff, den Sie in Schritt 1 für die Besprechung festgelegt haben. Passen Sie außerdem die Angaben für Empfängeradressen, Besprechungsort, Startzeit und Besprechungsdauer entsprechend Ihren eigenen Daten an.

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

6. Outlook versendet ab sofort die Besprechungseinladung automatisch, sobald die Erinnerung für den Aufgabeneintrag zum von Ihnen festgelegten Zeitpunkt erscheint.