Ga naar hoofdinhoud

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

Auteur: Siluvia Laatst gewijzigd: 2020-11-06

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

Note: 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.

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


Gerelateerde artikelen:


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 ProBatch 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.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This works for me in latest Outlook 365 but the deletion step never occurs. "rRequest.Delete" seems pretty straightforward -- but maybe something has changed in recent releases?
This comment was minimized by the moderator on the site
for me the xMtResponse object isn't being set and the macro errors out. Any updates for Outlook 2016?
This comment was minimized by the moderator on the site
Doesnt work, my appointments still need confirmation
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations