Hoe de verzending van een uitnodiging voor een vergadering in Outlook uitstellen?

Normaal gesproken kunt u de functie Vertraagde bezorging toepassen om een bericht op een specifiek tijdstip te verzenden in plaats van nu. Maar soms wilt u het verzenden van een uitnodiging voor een vergadering uitstellen, zoals een e-mail. Hoe kunt u op het gewenste tijdstip een uitnodiging voor een vergadering verzenden in Outlook?

Vertraag het verzenden van een uitnodiging voor een vergadering in Outlook met VBA-code

Vertraag het verzenden van een uitnodiging voor een vergadering in Outlook met VBA-code

Misschien is er geen directe manier om een uitnodiging voor een vergadering in Outlook uit te stellen, maar de onderstaande VBA-code kan u een plezier doen, doe dit als volgt:

1. U moet eerst een nieuwe taak maken. In het nieuwe Taak venster:

(1.) Specificeer het onderwerp, de startdatum en de einddatum voor de vergadering;

(2.) Stel een herinneringsdatum en -tijd in waarop u de uitnodiging voor de vergadering wilt verzenden;

(3.) Typ het vergaderbericht zoals u nodig heeft.

2. Klik na het aanmaken van de taak op Opslaan en sluiten optie om dit venster te sluiten.

3. Houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

4. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van de Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: een uitnodiging voor het verzenden van een vergadering uitstellen:

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: Vergadertest is het onderwerp dat u in stap 1 voor de vergadering heeft gemaakt; en u moet de informatie van adressen van ontvangers, vergaderlocatie, starttijd als vergaderduur naar je eigen land.

5. Sla de code op en sluit deze, en start Outlook opnieuw om deze code van kracht te laten worden.

6. Vanaf nu, wanneer de herinnering voor het taakitem op het door u ingestelde tijdstip verschijnt, verstuurt Outlook automatisch de uitnodiging voor de vergadering.

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.