Skip to main content

Conas eochairfhocail shonracha a aibhsiú go huathoibríoch ó ríomhphoist atá ag teacht isteach in Outlook

In Outlook, b’fhéidir go bhfaighidh tú na céadta agus na mílte ríomhphoist gach lá, an raibh tú riamh ag iarraidh aird a tharraingt ar roinnt eochairfhocail ar leith ó ríomhphoist atá ag teacht isteach? San Airteagal seo, tugaim isteach cód VBA chun aird a tharraingt go huathoibríoch ar na heochairfhocail a shonraíonn tú ó ríomhphoist atá ag teacht isteach in Outlook.

Auto eochairfhocail aibhsiú ó ríomhphoist atá ag teacht isteach


Auto eochairfhocail aibhsiú ó ríomhphoist atá ag teacht isteach

Ní féidir le haon fheidhm ionsuite dearcadh an post seo a láimhseáil ach amháin VBA.

1. Brúigh Alt + F11 eochair chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin cliceáil faoi dhó ThisOutlookSession ar chlé tionscadal pána, agus cóipeáil agus greamaigh faoin gcód go dtí an fhuinneog cód nua.

VBA: Cuir béim ar eochairfhocail i ríomhphoist atá ag teacht isteach

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

Leid: sa chód, is féidir leat na heochairfhocail a athrú de réir mar a theastaíonn uait sa script seo xWordArr = Eagar ("Kutools""tábhachtach") .

3. Ansin sábháil an cód agus téigh ar ais chuig Outlook , faoi Baile tab, cliceáil Rialacha > Bainistigh Rialacha & Foláirimh.
doc auto aird a tharraingt ar théacs 1

4. Sa Rialacha agus Foláirimh dialóg, cliceáil Riail Nua faoi Rialacha R-phoist cluaisín, ansin i Draoi Rialacha dialóg, cliceáil Cuir riail ar na teachtaireachtaí a bhfaighidh mé.
doc auto aird a tharraingt ar théacs 2

5. cliceáil Ar Aghaidh > Ar Aghaidh > Is ea chun dul go dtí an tríú dialóg, seiceáil script a rith ó Step1 alt, ansin cliceáil script in Step2 alt a chumasú Roghnaigh Script dialóg, roghnaigh an cód seo Tionscadal1.ThisOutlookSession.AutoHighlight_SpecificWords. Cliceáil OK.
doc auto aird a tharraingt ar théacs 3 doc auto aird a tharraingt ar théacs 4

6. cliceáil Ar Aghaidh > Ar Aghaidh, sa dialóg deireanach, tabhair ainm don riail seo.
doc auto aird a tharraingt ar théacs 5

7. cliceáil Críochnaigh > OK chun an riail a chríochnú.

As seo amach, tabharfar aird uathoibríoch ar na heochairfhocail a shonraigh tú sna ríomhphoist atá ag teacht isteach.
doc auto aird a tharraingt ar théacs 6


Sábháil nó Easpórtáil Il-ríomhphoist chuig comhaid fomat eile (PDF / HTML / WORD / EXCEL) in Outlook

Uaireanta, b’fhéidir gur mhaith leat na ríomhphoist a shábháil nó a easpórtáil chuig fillteán mar chomhaid formáide eile, mar chomhaid PDF, Word nó Excel in Outlook. In Outlook, ní féidir le ceachtar den fheidhm Sábháil agus Easpórtáil an post seo a láimhseáil. Ach, Kutools le haghaidh Outlook's Save as file is féidir le fóntais ríomhphoist iolracha a onnmhairiú chuig fillteán mar chomhaid a bhfuil formáidí iolracha acu ag an am céanna.    Cliceáil le haghaidh triail saor in aisce 45 lá!
doc ach amháin mar chomhad
 
Kutools for Outlook: leis an iliomad breiseán áisiúil Outlook, saor in aisce le triail gan aon teorannú i 45 lá.

Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

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