Hoe kunt u automatisch een vergaderverzoek van een bepaald persoon accepteren in Outlook?

Wanneer u een vergaderuitnodiging ontvangt in Outlook, moet u het verzoek handmatig accepteren en een reactie naar de afzender sturen. Bestaat er een eenvoudige manier om dit automatisch te laten gebeuren voor een specifieke persoon in Outlook? De methode in dit artikel helpt u daarbij.

Automatisch vergaderverzoeken van een specifieke persoon accepteren met VBA-code

---

Automatisch vergaderverzoeken van een specifieke persoon accepteren met VBA-code

De onderstaande VBA-code helpt u automatisch vergaderverzoeken te accepteren die zijn verzonden door een specifieke persoon in Outlook. Volg hiervoor de volgende stappen.

1. Druk op de Alt+F11-toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster Microsoft Visual Basic for Applications in het linkerdeelvenster op ThisOutlookSession om het codevenster te openen en plak vervolgens de onderstaande VBA-code in dit venster. Zie de schermafbeelding:

VBA-code: Automatisch vergaderverzoeken van een specifieke persoon accepteren in Outlook

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

Opmerking: Vervang in de code „Afzender naam” door de weergavenaam van de afzender.

3. Sla de code op en druk daarna op de Alt+Q-toetsen om het venster Microsoft Visual Basic for Applications te sluiten.

4. Start Outlook opnieuw op om de code te activeren.

Vanaf nu worden vergaderverzoeken van de persoon die u in de code hebt opgegeven automatisch geaccepteerd, en ontvangt de afzender direct een reactie-e-mail.

Opmerking: Het e-mailaccount waarmee u het vergaderverzoek ontvangt, moet het standaardaccount zijn in uw Outlook.

；

---

Gerelateerde artikelen:

• Hoe kunt u een vergaderuitnodiging afwijzen en deze toch op uw agenda behouden in Outlook?
• Hoe kunt u alle toekomstige herhalende vergaderuitnodigingen in Outlook afwijzen?