Hoe kan ik uitnodigingen voor vergaderingen automatisch doorsturen naar een specifieke persoon in Outlook?
In Outlook kunt u een uitnodiging voor een vergadering rechtstreeks naar een specifieke persoon doorsturen door de functie Doorsturen handmatig te gebruiken. Maar soms moet u de uitnodigingen voor de vergadering automatisch doorsturen naar een specifieke persoon wanneer u de vergadering accepteert. In dit artikel zal ik het hebben over hoe u een uitnodiging voor een vergadering zo snel mogelijk naar een persoon kunt doorsturen.
Stuur uitnodigingen voor vergaderingen automatisch door naar een specifieke persoon in Outlook met VBA-code
Hier is een nuttige VBA-code die u kan helpen om de uitnodiging voor een vergadering automatisch door te sturen naar een specifieke persoon nadat u deze hebt geaccepteerd, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.
VBA-code: uitnodigingen voor automatisch doorsturen naar een specifieke persoon:
Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
Set xMeetingItem = Item
Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
xMeetingResponse.Send
Set xForwardMeeting = xMeetingItem.Forward
With xForwardMeeting
With .Recipients
.Add "" 'change address to your own
.ResolveAll
End With
.Send
End With
End If
End Sub
Note: In de bovenstaande code moet u het adres van de ontvanger in uw eigen adres wijzigen.
3. Sla vervolgens de code op en start Outlook opnieuw om het code-effect te krijgen.
4. Als u nu een uitnodiging voor een vergadering ontvangt, wordt de vergadering automatisch geaccepteerd en tegelijkertijd wordt deze vergadering automatisch doorgestuurd naar uw specifieke persoon.
Note: Deze code is alleen beschikbaar voor het standaardaccount.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.
