Slapukai padeda mums pristatyti mūsų paslaugomis. Naudodamiesi mūsų paslaugomis, jūs sutinkate su mūsų slapukų naudojimą.
Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip automatiškai išskirti konkrečius raktinius žodžius iš gaunamų el. Laiškų "Outlook"

"Outlook" galite kasdien gauti šimtus ir tūkstančius el. Laiškų, ar kada nors norėjote automatiškai paryškinti kai kuriuos konkrečius raktinius žodžius iš gaunamų el. Laiškų? Šiame straipsnyje pristatau VBA kodą, kad automatiškai paryškintų raktinius žodžius, kuriuos nurodėte iš gaunamų el. Laiškų "Outlook".

Automatiškai išskirti raktinius žodžius iš gaunamų el. Laiškų


Automatiškai išskirti raktinius žodžius iš gaunamų el. Laiškų

Nei viena integruotoji funkcija perspektyvoje negali atlikti šio darbo, išskyrus VBA.

1. Paspauskite Alt + F11 raktas, norint įjungti "Microsoft Visual Basic for Applications" langas.

2. Tada dukart spustelėkite ThisOutlookSession kairėje Projektas langą ir nukopijuokite ir įklijuokite žemiau esantį kodą į naująjį kodo langą.

VBA: automatiškai išryškinkite raktinius žodžius gaunamuose el. Laiškuose

Public WithEvents GMailItems kaip Outlook.Items "UpdatebyExtendoffice20181106 Private Sub Application_Startup () Nustatyti GMailItems = Outlook.Application.Session.GetDefaultFolder (olFolderInbox) .Items End Sub Private Sub GMailItems_ItemAdd (ByVal Item As Object) Jei item.Class <> olMail, tada Exit Sub "AutoHighlight_SpecificWords" elemento pabaiga Sub Sub AutoHighlight_SpecificWords (Paštas kaip Outlook.MailItem) Dim xWord kaip alternatyva Dim xHTMLBody kaip eilutė, xStr As String Dim xWordArr Klaida atnaujinti Kitas xWordArr = Array ("Kutools", "Svarbus") "raktinis žodis xHTMLBody = Mail.HTMLBody Kiekvienam xWord In xWordArr Jei InStr (xHTMLBody, xWord)> 0 Tada xStr = "<font style =" & Chr (34) & "fono spalva: geltona" & Chr (34) & ">" & xWord & "< / font> "xHTMLBody = Pakeisti (xHTMLBody, xWord, xStr) Mail.HTMLBody = xHTMLBody End Jei Next Mail.Save End Sub

Patarimas: kode galite keisti raktinius žodžius, kaip jums reikia šiame scenarijuje xWordArr = Array ("Kutools"svarbus") .

3. Tada išsaugokite kodą ir grįžkite atgal į "Outlook" po Namai skirtuką spustelėkite Taisyklės > Valdykite taisykles ir įspėjimus.
doc automatiškai išskirti tekstą 1

4. Viduje Taisyklės ir perspėjimai dialogo langas spustelėkite Nauja taisyklė pagal El. Pašto taisyklės skirtuką, tada - Taisyklių vedlys dialogo langas spustelėkite Taikyti taisyklę apie gautus pranešimus.
doc automatiškai išskirti tekstą 2

5. spragtelėjimas Sekantis > Sekantis > taip Norėdami eiti į trečiąjį dialogą, patikrinkite paleisk scenarijų nuo Step1 skirsnyje, tada spustelėkite scenarijus in Step2 skirsnį, kad galėtumėte Pasirinkite scenarijų Dialogo lange pasirinkite šį kodą Project1.ThisOutlookSession.AutoHighlight_SpecificWords, Spauskite OK.
doc automatiškai išskirti tekstą 3 doc automatiškai išskirti tekstą 4

6. spragtelėjimas Sekantis > Sekantis, paskutiniame dialogo lange įveskite šios taisyklės pavadinimą.
doc automatiškai išskirti tekstą 5

7. spragtelėjimas apdaila > OK baigti taisyklę.

Nuo šiol jūsų nurodyti raktiniai žodžiai bus automatiškai pažymėti gautuose el. Laiškuose.
doc automatiškai išskirti tekstą 6


Išsaugokite arba eksportuokite keletą laiškų į kitus "fomat" failus (PDF / HTML / WORD / EXCEL) "Outlook"

Kartais galbūt norėsite išsaugoti arba eksportuoti el. Laiškus į aplanką kaip kitus formatų failus, pvz., "PDF", "Word" arba "Excel" failus "Outlook". "Outlook" nei viena iš funkcijų "Išsaugoti kaip ir eksportu" negali atlikti šio darbo. Tačiau Kutools for Outlook's Save as file Naudotojas gali eksportuoti kelis el. laiškus į aplanką kaip failus su keliais formatais vienu metu. Spustelėkite 45 dienų nemokamą bandomąją versiją!
doc išsaugoti kaip failą
"Kutools for Outlook": su daugybe patogių priedų Outlook, galite nemokamai pabandyti be apribojimų per 45 dienas.


Kutools for Outlook

Daugiau nei 100 papildomos funkcijos „Outlook 2010“, „2013“, „2016“, „2019“ ir „365“

ekrano fotografavimas „kutools“, skirtas „201812“ banerio perspektyvai

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.