Hoe wijs ik automatisch een kleurcategorie toe aan vergaderingen nadat ik ze heb geaccepteerd in Outlook?

In uw dagelijkse werk ontvangt u waarschijnlijk meerdere vergaderingsuitnodigingen in Outlook. Soms wilt u automatisch een specifieke kleurcategorie toewijzen aan vergaderingen zodra u deze accepteert. Hoewel dit handmatig kan, kost het veel tijd om alles één voor één in te stellen. In dit artikel laat ik u zien hoe u dit probleemloos automatisch kunt regelen in Outlook.

Wijs automatisch een kleurcategorie toe aan vergaderingen na acceptatie met VBA-code

---

Wijs automatisch een kleurcategorie toe aan vergaderingen na acceptatie met VBA-code

1. Druk op de toetsencombinatie ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster "Microsoft Visual Basic for Applications" op „ThisOutlookSession" in het deelvenster "Project1 (VbaProject.OTM)" om de module te openen, en plak vervolgens de volgende code in de lege module.

VBA-code: Wijs automatisch een kleurcategorie toe aan vergaderingen na acceptatie

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

Opmerking: In de bovenstaande code kunt u „Rode categorie" vervangen door de gewenste naam van de kleurcategorie.

3. Start daarna Outlook opnieuw op om de macro te activeren.

4. Nadat u de vergaderingsuitnodiging hebt geaccepteerd en op 'Reageer nu verzenden' klikt, wordt de specifieke kleurcategorie direct toegewezen aan de geaccepteerde vergadering. Zie schermopname:

Opmerking: Deze code is uitsluitend van toepassing op het standaard gegevensaccount.