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 en 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.