Comment attribuer automatiquement une catégorie de couleur aux réunions dès leur acceptation dans Outlook ?

Dans votre travail quotidien, vous recevez probablement de nombreux courriels d’invitation à des réunions dans Outlook. Il vous arrive parfois de vouloir attribuer automatiquement une catégorie de couleur spécifique dès qu’une réunion est acceptée. Bien sûr, vous pouvez le faire manuellement, mais cette méthode devient vite fastidieuse lorsqu’il faut tout configurer une par une. Dans cet article, je vais vous montrer comment automatiser cette tâche directement dans Outlook.

Attribuer automatiquement une catégorie de couleur aux réunions après leur acceptation à l’aide d’un code VBA

---

Attribuer automatiquement une catégorie de couleur aux réunions après leur acceptation à l’aide d’un code VBA

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 ce module vierge.

Code VBA : attribuer automatiquement une catégorie de couleur aux réunions après leur acceptation

Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
    Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
        Set xMeetingItemAccepted = xMeetingItem
        Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
        With xAppointmentItem
            .Categories = .Categories & "Red Category"
            .Save
        End With
    End If
End If
End Sub

Remarque : dans le code ci-dessus, remplacez « Red Category » par le nom de la catégorie de couleur de votre choix.

3. Redémarrez ensuite Outlook pour activer cette macro.

4. Après avoir accepté un courriel de réunion, cliquez sur l’option « Envoyer immédiatement la réponse » : la catégorie de couleur spécifiée sera alors attribuée automatiquement à la réunion acceptée. Voir la capture d’écran :

Remarque : ce code s’applique uniquement au compte de données par défaut.