Hvordan tildeles automatisk farvekategori til møder efter at have accepteret dem i Outlook?

Forfatter: Xiaoyang Sidst ændret: 2025-04-17

I dit daglige arbejde modtager du muligvis flere mødemails i Outlook. Nogle gange ønsker du at tildele en bestemt farvekategori til møder automatisk, når de accepteres. Normalt kan du tildele dem manuelt, men dette vil være besværligt at indstille dem en efter en. I denne artikel vil jeg tale om, hvordan man automatisk udfører det i Outlook.

Tildel automatisk farvekategori til møder efter at have accepteret dem med VBA-kode

Tildel automatisk farvekategori til møder efter at have accepteret dem med VBA-kode

1. Hold tasterne "ALT + F11" nede for at åbne vinduet "Microsoft Visual Basic for Applications".

2. I vinduet "Microsoft Visual Basic for Applications" skal du dobbeltklikke på "ThisOutlookSession" fra "Project1(VbaProject.OTM)"-ruden for at åbne tilstanden, og derefter kopiere og indsætte følgende kode i det tomme modul.

VBA-kode: Tildel farvekategori automatisk til møder efter at have accepteret dem

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

Bemærk: I ovenstående kode kan du ændre "Red Category" til dit ønskede farvekategorinavn.

3. Og genstart derefter din Outlook for at udløse denne makro.

4. Efter at have accepteret møde-e-mailen og klikket på "Send svar nu"-indstillingen, vil den specifikke farvekategori blive tildelt det accepterede møde på én gang. Se skærmbillede: