Ինչպես ավտոմատ դասակարգել նոր մուտքային էլ. Փոստերը ՝ ելնելով ուղարկողների կոնտակտային կատեգորիաներից

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

Որպեսզի բարելավեք ձեր աշխատանքի արդյունավետությունը Outlook- ում, դուք ջանքեր կգործադրեք ձեր էլ-նամակները ավելի լավ կառավարելու համար: Առանց որևէ կասկածի, «Գունային կատեգորիաները» այս առումով լավ հատկանիշ են: Շատ օգտվողներ նախընտրում են այն օգտագործել ՝ իրենց փոստերը կազմակերպելու և տարբերակելու համար: Իհարկե, նամակները գույնի դասակարգելու կոնկրետ հիմքը կախված է ձեր անձնական սովորություններից: Օրինակ ՝ որոշ օգտվողներ գույնը դասակարգել են իրենց կոնտակտները, հետևաբար նրանք հույս ունեն դասակարգել իրենց էլ. Եթե ​​դա անում եք ձեռքով, անպայման խառնաշփոթ կլինի, որ նախ պետք է ստուգեք ուղարկողի կոնտակտների կատեգորիաները, այնուհետև ձեռքով հանձնարարեք այն էլ.

Այս պահանջը լուծելու համար, իրականում, դուք կարող եք օգտագործել Outlook VBA- ն, որը կարող է թույլ տալ Outlook- ին ավտոմատ ստուգել ուղարկողի կապի կատեգորիաները և այն վերագրել նոր էլ. Եթե ​​դուք հետաքրքրված եք այս հատկությամբ, կարդացեք շարունակությունը ՝ մանրամասն քայլերն ու ծածկագրերը ստանալու համար:

Մուտքային էլ.փոստերը ավտոմատ դասակարգեք ուղարկողների կապի կատեգորիաների կողմից

1. Առաջին հերթին գործարկեք Outlook- ը և սեղմեք «Alt + F11» ստեղնային կոճակները:
2. Դրանից հետո կհայտնվի VBA խմբագրի պատուհանը, որում անհրաժեշտ է գտնել և բացել «ThisOutlookSession» նախագիծը:
3. Հաջորդը պատճենեք և տեղադրեք հետևյալ VBA կոդերը «ThisOutlookSession» - ի մեջ:

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim oMail As MailItem
    Dim olContacts As Outlook.Items
    Dim obj As Object
    Dim objVariant As Variant
    Dim olCategory As String
 
    Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
  
    If TypeOf Item Is MailItem Then
       Set oMail = Item
       For Each obj In olContacts
           If TypeOf obj Is ContactItem Then
              Set objVariant = obj
              If objVariant.Email1Address = oMail.SenderEmailAddress Then
                 olCategory = objVariant.Categories
                 oMail.Categories = olCategory
              End If
           End If
       Next
    End If
End Sub

4. Դրանից հետո դուք պետք է թվային սերտիֆիկատ նշանակեք նոր մակրոին:

• Նախ, VBA նախագծերի համար թվային վկայագրերի միջոցով ստեղծեք նոր սերտիֆիկատ:
• Դրանից հետո թվային ստորագրեք այս կոդը:

5. Դրանից հետո դուք կարող եք փոխել ձեր Outlook մակրո անվտանգությունը ՝ թույլատրելով միայն թվային ստորագրությամբ մակրոները:
6. Վերջապես կարող եք վերականգնելtart Outlook ՝ նոր մակրոը ակտիվացնելու համար: Այսուհետ, մուտքային արկղի թղթապանակ մուտք գործող բոլոր մուտքային էլ. Փոստերը ավտոմատ դասակարգվում են ըստ ուղարկողների կոնտակտների կատեգորիաների:

Կարգավորեք անսպասելի Outlook- ի խափանումը

Չնայած Outlook- ը նախընտրելի է շատ օգտվողների կողմից, այն դեռ չի կարող ազատվել վթարից: Անհրաժեշտ է խուճապ զգալ Outlook- ի անսպասելի վթարի ենթարկվելիս: Մի անհանգստացիր. Դուք կարող եք ինքնուրույն կատարել գործողություններ `խնդիրները ախտորոշելու և լուծելու համար, օրինակ` restarting Outlook- ը, երրորդ կողմի հավելումները անջատելը, նոր փոստային պրոֆիլի ստեղծումը և Office- ի հավաքակազմի նորոգումը և այլն: Ամենավատ դեպքը պետք է լինի կոռումպացված Outlook PST տվյալները, ինչը ծայրաստիճան հանգույց է: Այս սցենարում ձեզ հարկավոր է կրկնել արտաքին ուժեղ գործիքը, ինչպես օրինակ DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել կոռումպացված SQL mdf db և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com