Comment transférer automatiquement les invitations à une réunion à une personne précise dans Outlook ?

Dans Outlook, vous pouvez transférer manuellement une invitation à une réunion à une personne précise à l’aide de la fonction **Transférer**. Toutefois, il peut arriver que vous souhaitiez transférer automatiquement ces invitations dès que vous acceptez la réunion. Dans cet article, je vais vous expliquer comment configurer le **transfert automatique** d’une invitation à une réunion vers une personne spécifique, et ce, aussi rapidement que possible.

Transférez automatiquement les invitations à une réunion à une personne précise dans Outlook avec du code VBA

---

Transférez automatiquement les invitations à une réunion à une personne précise dans Outlook avec du code VBA

Voici un code VBA utile qui vous permet de transférer automatiquement l’invitation à une réunion à une personne précise après l’avoir acceptée. Procédez comme suit :

1. Maintenez enfoncées 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 Projet1 (VbaProject.OTM) pour ouvrir le module, puis copiez-collez le code suivant dans le module vide.

Code VBA : Transfert automatique les invitations à une réunion à une personne précise :

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
    Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
    xMeetingResponse.Send
    Set xForwardMeeting = xMeetingItem.Forward
    With xForwardMeeting
        With .Recipients
            .Add "skyyang@addin88.com" 'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End If
End Sub

Remarque : dans le code ci-dessus, remplacez l’adresse du destinataire par la vôtre.

3. Ensuite, enregistrez le code et redémarrez Outlook pour que les modifications prennent effet.

4. Désormais, dès que vous recevez une invitation à une réunion, celle-ci est acceptée automatiquement et transférée immédiatement à votre destinataire désigné.

Remarque : ce code est exclusivement réservé au Compte par défaut.