Hoe vertraagt u het verzenden van een vergaderuitnodiging in Outlook?

Normaal gesproken gebruikt u de functie Vertraagd verzenden om een bericht op een specifiek moment te versturen in plaats van direct. Maar soms wilt u het verzenden van een vergaderuitnodiging net als een e-mail uitstellen. Hoe verzendt u een vergaderuitnodiging op het gewenste moment in Outlook?

Vertraag het verzenden van een vergaderuitnodiging in Outlook met VBA-code

---

Vertraag het verzenden van een vergaderuitnodiging in Outlook met VBA-code

Er is mogelijk geen directe manier om een vergaderuitnodiging in Outlook uit te stellen, maar met de onderstaande VBA-code lukt het wel. Volg deze stappen:

1. Maak eerst een taak aan. In het nieuwe Taakvenster:

(1.) Geef het onderwerp, Startdatum, Einddatum voor de vergadering op;

(2.) Stel een Herinneringsdatum en tijd in waarop u de vergaderuitnodiging wilt verzenden;

(3.) Typ het vergaderbericht precies zoals u dat nodig hebt.

2. Nadat u de taak hebt gemaakt, klikt u op Opslaan en sluiten om dit venster te sluiten.

3. Houd vervolgens de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

4. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen, en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: Vertraag het verzenden van een vergaderuitnodiging:

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

Opmerking: In de bovenstaande code is Meeting test het onderwerp dat u hebt ingesteld voor de vergadering in stap 1; pas ook de gegevens aan voor ontvangeradressen, vergaderlocatie, begintijd en duur van de vergadering naar uw eigen gegevens.

5. Sla de code op, sluit af en herstart Outlook om de code te activeren.

6. Vanaf nu verzendt Outlook automatisch de vergaderuitnodiging zodra de herinnering voor het taakitem verschijnt op het tijdstip dat u hebt ingesteld.