Ki jan yo otomatikman mete aksan sou mo kle espesifik soti nan Imèl fèk ap rantre nan Outlook
Ekri sou 14 Novanm 2018 .
Nan pespektiv, ou ka resevwa dè santèn e dè milye Imèl chak jou, èske ou janm vle oto mete aksan sou kèk mo kle espesifik nan Imèl fèk ap rantre? Nan atik sa a, mwen entwodui yon kòd VBA otomatikman mete aksan sou mo kle yo ou presize soti nan Imèl fèk ap rantre nan Outlook.
Auto mo kle mete aksan sou Imèl fèk ap rantre
Pa gen fonksyon bati-an nan pespektiv ka okipe travay sa a eksepte VBA.
1. Peze Alt + F11 kle pou pèmèt a Microsoft Visual Basic pou aplikasyon pou fenèt.
2. Lè sa a, doub klike sou ThisOutlookSession nan bò gòch Pwojè fenèt, ak kopi epi kole anba kòd pou nouvo fenèt kòd la.
VBA: Auto mo kle mete aksan sou Imèl fèk ap rantre
Piblik akEvènman GMailItems Kòm Outlook.Items 'UpdatebyExtendoffice20181106 Prive Sub Application_Startup () Mete GMailItems = Outlook.Application.Session.GetDefaultFolder (olFolderInbox) .Items Fen Sub Prive Sub GMailItems_ItemAdd (ByVal Item Kòm objè) Si Item.Class <> olMail Lè sa a, sòti Sub AutoHighlight_SpecificWords Atik Fen Sub Sub AutoHighlight_SpecificWords (Mail Kòm Outlook.MailItem) Dim xWord Kòm Varyan Dim xHTMLBody Kòm String, xStr Kòm String Dim xWordArr Sou Erè Kourikouloum-vite Next xWordArr = Array ("Kutools", "Enpòtan") mo kle xHTMLBody = Mail.HTMLBody Pou Chak xWord Nan xWordArr Si InStr (xHTMLBody, xWord)> 0 Lè sa a, xStr = "<font style =" & Chr (34) & "background-koulè: jòn" & Chr (34) & ">" & xWord & / font> "xHTMLBody = Ranplase (xHTMLBody, xWord, xStr) Mail.HTMLBody = xHTMLBody Fen Si Next Post Sub.Save Next
Ide: nan kòd la, ou ka chanje mo kle yo jan ou bezwen nan sa a script xWordArr = Array ("Kutools","Ki enpòtan") .
3. Lè sa a, sove kòd la epi ale nan pespektiv, anba Akèy tab, klike sou Règleman > Jere Règ & Avètisman.
4. Nan Règ ak avètisman dyalòg, klike sou Nouvo Règleman anba Règ imèl tab, Lè sa a, nan Règ Sòsye dyalòg, klike sou Aplike règ sou mesaj mwen resevwa yo.
5. Klike sou Next > Next > Wi pou ale nan twazyèm dyalòg la, tcheke kouri yon script soti nan Step1 seksyon, Lè sa a, klike sou yon script in Step2 seksyon yo ki ap pèmèt Chwazi Script dyalòg, chwazi kòd sa a Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Klike sou OK.
6. Klike sou Next > Next, nan dènye dyalòg, bay yon non pou règ sa a.
7. Klike sou Fini > OK Pou fini règ la.
Depi koulye a, mo kle ou espesifye yo pral oto en nan Imèl fèk ap rantre yo.