Hoe automatisch een vergaderverzoek van een specifieke persoon in Outlook accepteren?

Wanneer u een uitnodiging voor een vergadering ontvangt in Outlook, moet u het vergaderverzoek handmatig accepteren en het antwoord naar de afzender sturen. Is er een gemakkelijke manier om het automatisch te accepteren van een specifieke persoon in Outlook? De methode in dit artikel zal je een plezier doen.

Accepteer automatisch een vergaderverzoek van een specifieke persoon met VBA-code

Accepteer automatisch een vergaderverzoek van een specifieke persoon met VBA-code

De onderstaande VBA-code kan u helpen om automatisch een vergaderverzoek te accepteren dat is verzonden door een specifieke persoon in Outlook. Ga als volgt te werk.

1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie in het linkerdeelvenster om het codevenster te openen en kopieer vervolgens de VBA-code naar het venster. Zie screenshot:

VBA-code: automatisch vergaderverzoek van een specifieke persoon in Outlook accepteren

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 de “Naam afzender”Met de weergavenaam van de afzender.

3. Sla de code op en druk op anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.

4. Start Outlook opnieuw om dit code-effect te krijgen.

Vanaf nu, wanneer u vergaderverzoeken ontvangt van de persoon die u in de code hebt opgegeven, wordt de vergadering automatisch geaccepteerd en ontvangt de afzender ook een antwoord-e-mail.

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

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.