Как автоматично да присвоите цветова категория на срещите, след като ги приемете в Outlook?

Автор: Xiaoyang Последна промяна: 2018-05-28

В ежедневната си работа може да получавате множество имейли за срещи в Outlook. Понякога искате автоматично да присвоите конкретна цветова категория на срещите, когато бъдат приети. Обикновено можете да ги зададете ръчно, но ще бъде трудно да ги зададете един по един. В тази статия ще говоря за това как да го изпълня автоматично в Outlook.

Автоматично присвояване на цветова категория на срещи, след като ги приемете с VBA код

Автоматично присвояване на цветова категория на срещи, след като ги приемете с VBA код

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, щракнете два пъти ThisOutlookSession от Проект1(VbaProject.OTM) прозорец, за да отворите режима, и след това копирайте и поставете следния код в празния модул.

VBA код: Автоматично присвояване на цветова категория на срещите след приемането им

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 автоматично категоризиране на срещи 1

Забележка: В горния код можете да промените Червена категория към желаното от вас име на цветова категория.

3. И след това рестартирайте вашия Outlook, за да задействате този макрос.

4. След това, след като приемете имейла за срещата, щракнете върху Изпратете отговор сега опция, конкретната цветова категория ще бъде присвоена на приетата среща наведнъж. Вижте екранна снимка:

doc автоматично категоризиране на срещи 2