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.
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.
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.
6. Cliciwch Digwyddiadau > Digwyddiadau, yn y dialog diwethaf, rhowch enw ar gyfer y rheol hon.
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.
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! |
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 Pro: Arbed 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.