Passer au contenu principal

Comment accepter automatiquement la demande de réunion d'une personne spécifique dans Outlook?

Lorsque vous recevez une invitation à une réunion dans Outlook, vous devez accepter manuellement la demande de réunion et envoyer la réponse à l'expéditeur. Existe-t-il un moyen simple de l'accepter automatiquement d'une personne spécifique dans Outlook? La méthode décrite dans cet article vous rendra service.

Accepter automatiquement la demande de réunion d'une personne spécifique avec le code VBA


Accepter automatiquement la demande de réunion d'une personne spécifique avec le code VBA

Le code VBA ci-dessous peut vous aider à accepter automatiquement la demande de réunion envoyée par une personne spécifique dans Outlook. Veuillez faire comme suit.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook dans le volet gauche pour ouvrir la fenêtre Code, puis copiez sous le code VBA dans la fenêtre. Voir la capture d'écran:

Code VBA: accepter automatiquement la demande de réunion d'une personne spécifique dans 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

Notes: Dans le code, veuillez remplacer le "Nom de l'expéditeur”Avec le nom d'affichage de l'expéditeur.

3. Enregistrez le code, puis appuyez sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

4. Redémarrez Outlook pour prendre cet effet de code.

À partir de maintenant, lors de la réception des demandes de réunion envoyées par la personne que vous avez indiquée dans le code, la réunion sera acceptée automatiquement et l'expéditeur recevra également un e-mail de réponse.

Notes: Le compte de messagerie qui reçoit la demande de réunion doit être le compte par défaut dans votre Outlook.


Articles Liés:


Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes ProSauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

 

 

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