Kako samodejno dodeliti barvno kategorijo sestankom, potem ko jih sprejmete v Outlooku?

Pri vsakodnevnem delu boste v Outlooku morda prejeli več e-poštnih sporočil o sestankih. Včasih želite sestankom samodejno dodeliti določeno barvno kategorijo, ko so sprejeti. Običajno jih lahko dodelite ročno, vendar pa bo težavno, če jih nastavite enega za drugim. V tem članku bom govoril o tem, kako to samodejno doseči v Outlooku.

Po sestankih samodejno dodeli barvno kategorijo, potem ko jih sprejmeš s kodo VBA

Po sestankih samodejno dodeli barvno kategorijo, potem ko jih sprejmeš s kodo VBA

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: Samodejno dodeli barvno kategorijo sestankom, potem ko jih sprejmete

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

Opombe: V zgornji kodi lahko spremenite Rdeča kategorija na želeno ime kategorije barv.

3. Nato znova zaženite Outlook, da sproži ta makro.

4. Potem, ko sprejmete e-poštno sporočilo, kliknite Pošljite odgovor zdaj možnost, bo sprejeta seja naenkrat dodeljena določeni barvni kategoriji. Oglejte si posnetek zaslona:

Opombe: Ta koda se uporablja samo za privzeti podatkovni račun.