Hoe een uitnodiging voor een vergadering in Outlook te vertragen?
Normaal gesproken kun je de functie Vertraging verzenden gebruiken om een bericht op een specifiek tijdstip te versturen in plaats van direct. Maar soms wil je een uitnodiging voor een vergadering vertragen, net zoals bij een e-mail. Hoe kun je een uitnodiging voor een vergadering op het gewenste tijdstip versturen in Outlook?
Vertraging van het verzenden van een vergaderingsuitnodiging in Outlook met VBA-code
Vertraging van het verzenden van een vergaderingsuitnodiging in Outlook met VBA-code
Misschien is er geen directe manier om een vergaderingsuitnodiging in Outlook te vertragen, maar met de volgende VBA-code kun je geholpen worden. Volg deze stappen:
1. Maak eerst een nieuwe taak aan. In het nieuwe Taakvenster:
(1.) Specificeer het onderwerp, begindatum en einddatum voor de vergadering;
(2.) Stel een herinneringsdatum en -tijd in wanneer je de uitnodiging voor de vergadering wilt versturen;
(3.) Typ het vergaderingsbericht zoals je dat nodig hebt.
2. Nadat je de taak hebt aangemaakt, klik dan op de optie Opslaan en sluiten om dit venster te sluiten.
3. Druk vervolgens tegelijkertijd op de toetsen ALT + F11 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: Vertraging van het verzenden van een vergaderingsuitnodiging:
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: Meeting test is het onderwerp dat je hebt gemaakt voor de vergadering in stap 1; en je moet de informatie over de ontvangeradressen, vergaderingslocatie, begintijd en vergaderingsduur aanpassen naar je eigen gegevens.
5. Sla de code op en sluit deze, start vervolgens Outlook opnieuw op om ervoor te zorgen dat deze code wordt toegepast.
6. Vanaf nu, wanneer de herinnering voor de taak op het door jou ingestelde specifieke tijdstip verschijnt, zal Outlook automatisch de uitnodiging voor de vergadering versturen.
Beste productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
