Ինչպե՞ս ավտոմատ կերպով նշանակել գունային կատեգորիայի հանդիպումները Outlook- ում ընդունելուց հետո:

Ձեր ամենօրյա աշխատանքում դուք կարող եք Outlook- ում բազմաթիվ հանդիպումների նամակներ ստանալ: Երբեմն, ցանկանում եք, որ հանդիպումների ժամանակ ավտոմատ կերպով նշանակեք որոշակի գունային կատեգորիա, երբ դրանք ընդունվում են: Սովորաբար, դրանք կարող եք ձեռքով նշանակել, բայց դրանք մեկ առ մեկ կարգավորելն անհանգստացնող կլինի: Այս հոդվածում ես կխոսեմ այն մասին, թե ինչպես դա ավտոմատ կերպով իրականացնել Outlook- ում:

VBA կոդով դրանք ընդունելուց հետո ավտոմատ կերպով նշանակեք գունային կատեգորիա հանդիպումների վրա

VBA կոդով դրանք ընդունելուց հետո ավտոմատ կերպով նշանակեք գունային կատեգորիա հանդիպումների վրա

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (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 auto դասակարգել հանդիպումները 1

ՆշումՎերոհիշյալ ծածկագրում կարող եք փոխել Կարմիր կատեգորիա ձեր ցանկալի գույնի կատեգորիայի անվանը:

3, Եվ հետո, վերագործարկեք ձեր Outlook- ը `այս մակրոը գործարկելու համար:

4, Դրանից հետո հանդիպման էլ.փոստը ընդունելուց հետո կտտացրեք Ուղարկեք պատասխանը հիմա տարբերակը, գույնի հատուկ կատեգորիան միանգամից կհանձնվի ընդունված հանդիպմանը: Տեսեք,

doc auto դասակարգել հանդիպումները 2