Hoppa till huvudinnehåll

Hur man automatiskt markerar specifika nyckelord från inkommande e-postmeddelanden i Outlook

I Outlook kan du få hundratusentals e-postmeddelanden varje dag. Har du någonsin velat markera några specifika nyckelord automatiskt från inkommande e-postmeddelanden? I den här artikeln introducerar jag en VBA-kod för att automatiskt markera de nyckelord som du anger från inkommande e-postmeddelanden i Outlook.

Markera nyckelord automatiskt från inkommande e-postmeddelanden


Markera nyckelord automatiskt från inkommande e-postmeddelanden

Ingen inbyggd funktion i Outlook kan hantera detta jobb förutom VBA.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. Dubbelklicka sedan ThisOutlookSession till vänster Projekt och kopiera och klistra in under koden i det nya kodfönstret.

VBA: Markera nyckelord automatiskt i inkommande e-postmeddelanden

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

Dricks: i koden kan du ändra nyckelorden som du behöver i det här skriptet xWordArr = Array ("Kutools""Viktigt") .

3. Spara sedan koden och gå tillbaka till Outlook , under Hem fliken, klicka regler > Hantera regler och varningar.
dokument för automatisk markering av dokument 1

4. I Regler och varningar dialog, klicka Ny regel under E-postregler fliken och sedan in Regelguiden dialog, klicka Använd regel för meddelanden jag får.
dokument för automatisk markering av dokument 2

5. klick Nästa > Nästa > Ja för att gå till den tredje dialogrutan, kontrollera kör ett skript från Step1 avsnittet och klicka sedan på ett manus in Step2 avsnitt för att aktivera Välj skript Välj den här koden Projekt1.ThisOutlookSession.AutoHighlight_SpecificWords. Klicka OK.
dokument för automatisk markering av dokument 3 dokument för automatisk markering av dokument 4

6. klick Nästa > Nästa, i den sista dialogen, ge ett namn för denna regel.
dokument för automatisk markering av dokument 5

7. klick Finish > OK för att avsluta regeln.

Från och med nu markeras de nyckelord som du har angett automatiskt i inkommande e-postmeddelanden.
dokument för automatisk markering av dokument 6


Spara eller exportera flera e-postmeddelanden till andra fomat-filer (PDF / HTML / WORD / EXCEL) i Outlook

Ibland kanske du vill spara eller exportera e-postmeddelandena till en mapp som andra formatfiler, till exempel PDF-, Word- eller Excel-filer i Outlook. I Outlook klarar ingen av funktionerna Spara som och Exportera det här jobbet. I alla fall, Kutools för Outlook's Save as file verktyget kan exportera flera e-postmeddelanden till en mapp som filer med flera format samtidigt.    Klicka i 45 dagars gratis provperiod!
doc spara som fil
 
Kutools for Outlook: med dussintals praktiska Outlook-tillägg, gratis att prova utan begränsning på 45 dagar.

Bästa kontorsproduktivitetsverktyg

Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook

🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...

📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Hämta enkelt e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor ProBatch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Öka din Outlook-produktivitet med flikar  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.

Läs mer       Gratis nedladdning      Inköp
 

 

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