Ga naar hoofdinhoud

Hoe u automatisch specifieke zoekwoorden uit inkomende e-mails in Outlook kunt markeren

In Outlook kunt u elke dag honderden en duizenden e-mails ontvangen, heeft u ooit bepaalde specifieke zoekwoorden uit inkomende e-mails automatisch willen markeren? In dit artikel introduceer ik een VBA-code om automatisch de trefwoorden te markeren die u opgeeft in inkomende e-mails in Outlook.

Markeer automatisch trefwoorden uit inkomende e-mails


Markeer automatisch trefwoorden uit inkomende e-mails

Geen enkele ingebouwde functie in Outlook kan deze taak aan, behalve VBA.

1. druk op Alt + F11 toets om het Microsoft Visual Basic voor toepassingen venster.

2. Dubbelklik vervolgens DezeOutlookSessie links Project en kopieer en plak onderstaande code in het nieuwe codevenster.

VBA: markeer automatisch trefwoorden in inkomende e-mails

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: in de code kunt u de trefwoorden naar behoefte in dit script wijzigen xWordArr = Array ("Kutools''belangrijk") .

3. Sla vervolgens de code op en ga terug naar Outlook, onder Home tab, klik Reglement > Beheer regels en waarschuwingen.
doc automatische markeringstekst 1

4. In de Regels en waarschuwingen dialoogvenster, klik Nieuwe regel voor E-mailregels tabblad en vervolgens in Regels Wizard dialoogvenster, klik Regel toepassen op berichten die ik ontvang.
doc automatische markeringstekst 2

5. klikken Volgende > Volgende > Ja vink aan om naar het derde dialoogvenster te gaan voer een script uit oppompen van Step1 sectie en klik vervolgens op een script in Step2 sectie om in te schakelen Selecteer Script kies deze code Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Klikken OK.
doc automatische markeringstekst 3 doc automatische markeringstekst 4

6. klikken Volgende > VolgendeGeef in het laatste dialoogvenster een naam voor deze regel.
doc automatische markeringstekst 5

7. klikken Finish > OK om de regel af te maken.

Vanaf nu worden de door u opgegeven zoekwoorden automatisch gemarkeerd in de inkomende e-mails.
doc automatische markeringstekst 6


Bewaar of exporteer meerdere e-mails naar andere bestandsbestanden (PDF / HTML / WORD / EXCEL) in Outlook

Soms wilt u de e-mails opslaan of exporteren naar een map als bestanden in andere indelingen, zoals pdf-, Word- of Excel-bestanden in Outlook. In Outlook kan geen van de functies Opslaan als en Exporteren deze taak aan. Echter, Kutools for Outlook's Save as file hulpprogramma kan meerdere e-mails naar een map exporteren als bestanden met meerdere indelingen tegelijk.    Klik voor een gratis proefperiode van 45 dagen!
doc opslaan als bestand
 
Kutools for Outlook: met tientallen handige Outlook-invoegtoepassingen, gratis te proberen zonder beperking in 45 dagen.

Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen ProBatch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

 

 

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