Hoe stelt u Automatisch doorsturen in om vergaderuitnodigingen naar een specifieke persoon te sturen in Outlook?

In Outlook kunt u handmatig een vergaderuitnodiging direct naar een specifieke persoon doorsturen met de functie Doorsturen. Maar soms wilt u vergaderuitnodigingen automatisch naar een bepaalde persoon doorsturen zodra u de vergadering accepteert. In dit artikel leg ik uit hoe u een vergaderuitnodiging zo snel mogelijk automatisch naar iemand doorstuurt.

Vergaderuitnodigingen automatisch naar een specifieke persoon doorsturen in Outlook met VBA-code

---

Vergaderuitnodigingen automatisch naar een specifieke persoon doorsturen in Outlook met VBA-code

Hier is een handige VBA-code waarmee u de vergaderuitnodiging na acceptatie automatisch naar een specifieke persoon kunt doorsturen. Volg deze stappen:

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

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

VBA-code: vergaderuitnodigingen 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 "skyyang@addin88.com" 'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End If
End Sub

Opmerking: Pas in de bovenstaande code het e-mailadres van de ontvanger aan naar uw eigen adres.

3. Sla de code op en herstart Outlook om de code te activeren.

4. Vanaf nu wordt een ontvangen vergaderuitnodiging automatisch geaccepteerd en onmiddellijk doorgestuurd naar de door u opgegeven persoon.

Opmerking: Deze code is alleen geldig voor een standaardaccount.