Ինչպես Outlook- ում մուտքային էլ-նամակներից ավտոմատ կերպով առանձնացնել որոշակի հիմնաբառեր

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

Ավտոմատ լուսավորեք մուտքային էլ-նամակների հիմնաբառերը

Ավտոմատ լուսավորեք մուտքային էլ-նամակների հիմնաբառերը

Outlook- ում ոչ մի ներկառուցված գործառույթ չի կարող կարգավորել այս աշխատանքը, բացառությամբ VBA- ի:

1. Մամուլ Alt + F11 ստեղնը հնարավորություն տալու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Դրանից հետո կրկնակի կտտացրեք ԱյսOutlookSession- ը ձախում Նախագիծ պատուհանը և պատճենեք և կպցրեք կոդը ներքևում ՝ նոր ծածկագրի պատուհանում:

VBA. Մուտքային էլփոստերում ավտոմատ կերպով առանձնացնում են հիմնաբառեր

Public WithEvents GMailItems As Outlook.Items
'UpdatebyExtendoffice20181106
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub
    AutoHighlight_SpecificWords Item
End Sub
Sub AutoHighlight_SpecificWords(Mail As Outlook.MailItem)
    Dim xWord As Variant
    Dim xHTMLBody As String, xStr As String
    Dim xWordArr
    On Error Resume Next
    xWordArr = Array("Kutools", "Important")  'keyword
    xHTMLBody = Mail.HTMLBody
    For Each xWord In xWordArr
        If InStr(xHTMLBody, xWord) > 0 Then
            xStr = "<font style=" & Chr(34) & "background-color: yellow" & Chr(34) & ">" & xWord & "</font>"
            xHTMLBody = Replace(xHTMLBody, xWord, xStr)
            Mail.HTMLBody = xHTMLBody
        End If
    Next
    Mail.Save
End Sub

Ձեր պատասխանը ուղարկված չէ: ծածկագրում, դուք կարող եք փոխել հիմնաբառերը, ինչպես ձեզ հարկավոր է այս սցենարում xWordArr = զանգված ("Կուտոլս""Important") .

3. Ապա պահեք կոդը և վերադառնաք Outlook ， տակ Գլխավոր էջանշանը, սեղմեք Կանոններ > Կառավարեք կանոններն ու ահազանգերը.

4. Մեջ Կանոններ և ահազանգեր երկխոսություն, սեղմեք Նոր կանոն տակ Էլ. Փոստի կանոններ էջանիշը, ապա ներս Կանոնների մոգ երկխոսություն, սեղմեք Կիրառեք այն կանոնները, որոնք ես ստանում եմ.

5: սեղմեք հաջորդ > հաջորդ > այո երրորդ երկխոսությանը անցնելու համար ստուգեք գործարկել սցենար - ից Step1- ը բաժինը, ապա կտտացրեք սցենար in Step2- ը հնարավորություն տալու համար Ընտրեք սցենար երկխոսություն, ընտրեք այս կոդը Project1.ThisOutlookSession.AutoHighlight_SpecificWords: Սեղմեք OK.

6: սեղմեք հաջորդ > հաջորդ, վերջին երկխոսության մեջ, տվեք այս կանոնի անունը:

7: սեղմեք Ավարտել > OK կանոնն ավարտելու համար:

Այսուհետ ձեր նշած հիմնաբառերը ավտոմատ կերպով կարևորվեն մուտքային էլ. Փոստերում:

Outlook- ում մի քանի նամակներ պահեք կամ արտահանեք այլ ֆոմատ ֆայլեր (PDF / HTML / WORD / EXCEL)

Երբեմն գուցե ցանկանաք էլփոստերը պահպանել կամ արտահանել թղթապանակ ՝ որպես այլ ձևաչափի ֆայլեր, ինչպիսիք են PDF, Word կամ Excel ֆայլերը Outlook- ում: Outlook- ում Save as և Export գործառույթներից ոչ մեկը չի կարող կարգավորել այս աշխատանքը: Այնուամենայնիվ, Outlook- ի համար նախատեսված գործիքներ's Save as file կոմունալը կարող է միանգամից մի քանի նամակներ արտահանել թղթապանակ ՝ որպես մի քանի բազմաչափ ձևաչափ ունեցող ֆայլեր:    Կտտացրեք 45 օր անվճար փորձաշրջանի համար:

Outlook- ի համար նախատեսված գործիքներ. Outlook- ի տասնյակ հարմարավետ հավելումներով, 45 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ Pro: Խմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

Կարդալ ավելին       Անվճար ներբեռնում      Ձեռք բերել