Comment configurer Outlook pour accepter automatiquement les demandes de réunion provenant d’une personne spécifique ?

Lorsque vous recevez une invitation à une réunion dans Outlook, vous devez habituellement l’accepter manuellement et envoyer une réponse à l’expéditeur. Existe-t-il un moyen simple d’accepter automatiquement les invitations provenant d’une personne spécifique dans Outlook ? La méthode présentée dans cet article vous sera d’une grande aide.

Accepter automatiquement les demandes de réunion provenant d’une personne spécifique à l’aide d’un code VBA

---

Accepter automatiquement les demandes de réunion provenant d’une personne spécifique à l’aide d’un code VBA

Le code VBA ci-dessous vous permet d’accepter automatiquement les demandes de réunion envoyées par une personne spécifique dans Outlook. Suivez ces étapes :

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur ThisOutlookSession dans le volet gauche pour ouvrir la fenêtre de code, puis y copiez le code VBA ci-dessous. Voir la capture d’écran :

Code VBA : Accepter automatiquement les demandes de réunion provenant 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

Remarque : dans le code, remplacez « Nom de l'expéditeur » par le nom d’affichage de l’expéditeur.

3. Enregistrez le code, puis appuyez sur les touches Alt+Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.

4. Redémarrez Outlook pour que ce code prenne effet.

Désormais, les demandes de réunion envoyées par la personne que vous avez spécifiée dans le code seront automatiquement acceptées, et l’expéditeur recevra immédiatement un e-mail de confirmation.

Remarque : le compte e-mail qui reçoit la demande de réunion doit être défini comme compte par défaut dans votre Outlook.

；

---

Articles associés :

• Comment refuser une invitation à une réunion tout en la gardant dans votre calendrier dans Outlook ?
• Comment refuser toutes les occurrences futures d’une réunion dans Outlook ?