Hur tilldelar jag färgkategori automatiskt till möten efter att ha godkänt dem i Outlook?

I ditt dagliga arbete kan du få flera mötes-e-postmeddelanden i Outlook. Ibland vill du tilldela en viss färgkategori till möten automatiskt när de accepteras. Normalt kan du tilldela dem manuellt, men det kommer att vara besvärligt att ställa in dem en efter en. I den här artikeln kommer jag att prata om hur man automatiskt gör det i Outlook.

Tilldela färgkategori automatiskt till möten efter att ha accepterat dem med VBA-kod

Tilldela färgkategori automatiskt till möten efter att ha accepterat dem med VBA-kod

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna läget och sedan kopiera och klistra in följande kod i den tomma modulen.

VBA-kod: Tilldela färgkategori automatiskt till möten efter att ha godkänt 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

doc automatiskt kategorisera möten 1

Anmärkningar: I ovanstående kod kan du ändra Röd kategori till önskat färgkategorinamn.

3. Starta sedan om din Outlook för att utlösa detta makro.

4. Sedan, efter att ha godkänt mötes-e-postmeddelandet, och klicka Skicka svaret nu alternativet kommer den specifika färgkategorin att tilldelas det accepterade mötet på en gång. Se skärmdump:

doc automatiskt kategorisera möten 2