Skip i'r prif gynnwys

Sut i dynnu sylw at eiriau allweddol penodol yn awtomatig o negeseuon e-bost sy'n dod i mewn yn Outlook

Yn Outlook, efallai y byddwch chi'n derbyn cannoedd ar filoedd o negeseuon e-bost bob dydd, a ydych chi erioed wedi bod eisiau tynnu sylw at rai geiriau allweddol penodol o negeseuon e-bost sy'n dod i mewn? Yn yr erthygl hon, rwy'n cyflwyno cod VBA i dynnu sylw'n awtomatig at yr allweddeiriau rydych chi'n eu nodi o negeseuon e-bost sy'n dod i mewn yn Outlook.

Auto tynnu sylw at eiriau allweddol o negeseuon e-bost sy'n dod i mewn


Auto tynnu sylw at eiriau allweddol o negeseuon e-bost sy'n dod i mewn

Ni all unrhyw swyddogaeth adeiledig mewn agwedd drin y swydd hon ac eithrio VBA.

1. Gwasgwch Alt + F11 allwedd i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna cliciwch ddwywaith SesiwnOutlook yn y chwith Prosiect cwarel, a chopïo a gludo islaw'r cod i'r ffenestr cod newydd.

VBA: Auto tynnu sylw at eiriau allweddol mewn e-byst sy'n dod i mewn

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

Tip: yn y cod, gallwch newid yr allweddeiriau yn ôl yr angen yn y sgript hon xWordArr = Array ("Kutools""pwysig") .

3. Yna arbedwch y cod ac ewch yn ôl i Outlook , o dan Hafan tab, cliciwch Rheolau > Rheoli Rheolau a Rhybuddion.
doc auto tynnu sylw at destun 1

4. Yn y Rheolau a Rhybuddion deialog, cliciwch Rheol Newydd dan Rheolau E-bost tab, yna i mewn Dewin Rheolau deialog, cliciwch Gwnewch gais ar y negeseuon a gefais.
doc auto tynnu sylw at destun 2

5. Cliciwch Digwyddiadau > Digwyddiadau > Ydy i fynd i'r trydydd deialog, gwiriwch rhedeg sgript o Step1 adran, yna cliciwch sgript in Step2 adran i alluogi Dewiswch Sgript deialog, dewiswch y cod hwn Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Cliciwch OK.
doc auto tynnu sylw at destun 3 doc auto tynnu sylw at destun 4

6. Cliciwch Digwyddiadau > Digwyddiadau, yn y dialog diwethaf, rhowch enw ar gyfer y rheol hon.
doc auto tynnu sylw at destun 5

7. Cliciwch Gorffen > OK i orffen y rheol.

O hyn ymlaen, bydd yr allweddeiriau a nodwyd gennych yn cael eu hamlygu'n awtomatig yn yr e-byst sy'n dod i mewn.
doc auto tynnu sylw at destun 6


Cadw neu Allforio E-byst Lluosog i ffeiliau fomat eraill (PDF / HTML / WORD / EXCEL) yn Outlook

Weithiau, efallai yr hoffech arbed neu allforio’r e-byst i ffolder fel ffeiliau fformat eraill, megis ffeiliau PDF, Word neu Excel yn Outlook. Yn Outlook, ni all yr un o'r swyddogaeth Cadw fel ac Allforio drin y swydd hon. Fodd bynnag, Kutools ar gyfer Rhagolwg's Save as file gall cyfleustodau allforio e-byst lluosog i ffolder fel ffeiliau â sawl fformat ar yr un pryd.    Cliciwch am 45 diwrnod o dreial am ddim!
doc arbed fel ffeil
 
Kutools ar gyfer Outlook: gyda dwsinau o ychwanegion Outlook defnyddiol, yn rhad ac am ddim i geisio heb unrhyw gyfyngiad mewn 45 diwrnod.

Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau ProArbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I found a solution...

you need to enable Macros...and it WORKS (boom)

Outlook settings > Trust Center > Trust Center Settings > Macro Settings > "Enable all macros"
This comment was minimized by the moderator on the site
"run a script" is not showing, which I guess is an option not allowed by my employer
This comment was minimized by the moderator on the site
you should change register key please look https://www.slipstick.com/outlook/rules/outlook-run-a-script-rules/ but above process doesn't work for o365 outlook version on windows 10
This comment was minimized by the moderator on the site
Didn't work
This comment was minimized by the moderator on the site
didn't wok for o365 installed outlook on windows 10
This comment was minimized by the moderator on the site
doesn't work for o365 outlook version on windows 10 I applied everything
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations