Hoe kan ik automatisch een kleurcategorie toewijzen aan vergaderingen nadat ik ze in Outlook heb geaccepteerd?

Tijdens uw dagelijkse werk kunt u in Outlook meerdere vergaderings-e-mails ontvangen. Soms wilt u automatisch een specifieke kleurcategorie aan vergaderingen toewijzen wanneer ze worden geaccepteerd. Normaal gesproken kunt u ze handmatig toewijzen, maar het zal lastig zijn om ze een voor een in te stellen. In dit artikel zal ik het hebben over hoe u dit automatisch kunt doen in Outlook.

Wijs automatisch een kleurcategorie toe aan vergaderingen nadat u ze met VBA-code hebt geaccepteerd

Wijs automatisch een kleurcategorie toe aan vergaderingen nadat u ze met VBA-code hebt geaccepteerd

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: kleurcategorie automatisch toewijzen aan vergaderingen nadat deze zijn geaccepteerd

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

doc automatisch vergaderingen categoriseren 1

Note: In de bovenstaande code kunt u wijzigen Rode categorie naar de gewenste kleurcategorienaam.

3. En start vervolgens uw Outlook opnieuw om deze macro te activeren.

4. Nadat u de vergaderings-e-mail hebt geaccepteerd, klikt u op Stuur nu de reactie optie, wordt de specifieke kleurcategorie meteen toegewezen aan de geaccepteerde vergadering. Zie screenshot:

doc automatisch vergaderingen categoriseren 2