Sådan fremhæves automatisk bestemte søgeord fra indgående e-mails i Outlook
I Outlook kan du modtage hundredvis og tusindvis af e-mails hver dag, har du nogensinde ønsket at automatisk fremhæve nogle specifikke søgeord fra indgående e-mails? I denne artikel introducerer jeg en VBA-kode til automatisk at fremhæve de søgeord, du angiver fra indgående e-mails i Outlook.
Fremhæv automatisk søgeord fra indgående e-mails
Fremhæv automatisk søgeord fra indgående e-mails
Ingen indbygget funktion i outlook kan håndtere dette job undtagen VBA.
1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. Dobbeltklik derefter Denne OutlookSession til venstre Projekt ruden, og kopier og indsæt nedenstående kode til det nye kodevindue.
VBA: Fremhæv automatisk søgeord i indgående 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: i koden kan du ændre nøgleordene, som du har brug for i dette script xWordArr = Array("Kutools""Vigtig") .
3. Gem derefter koden og gå tilbage til Outlook,under Home fanebladet, klik på Regler > Administrer regler og advarsler.
4. i Regler og advarsler dialog, klik Ny regel under E-mail-regler fanen og derefter ind Guiden til regler dialog, klik Anvend regel på meddelelser, jeg modtager.
5. klik Næste > Næste > Ja for at gå til den tredje dialog, tjek køre et script fra Step1 sektion, og klik derefter på et script in Step2 sektion for at aktivere Vælg script dialog, vælg denne kode Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Klik OK.
6. klik Næste > Næste, i sidste dialog, giv et navn til denne regel.
7. klik Finish > OK for at afslutte reglen.
Fra nu af vil de søgeord, du har angivet, automatisk blive fremhævet i de indgående e-mails.
Gem eller eksporter flere e-mails til andre fomat-filer (PDF / HTML / WORD / EXCEL) i Outlook
|
Nogle gange vil du muligvis gemme eller eksportere e-mails til en mappe som andre formatfiler, såsom PDF-, Word- eller Excel-filer i Outlook. I Outlook kan ingen af funktionerne Gem som og Eksport håndtere dette job. Imidlertid, Kutools til Outlook's Save as file værktøj kan eksportere flere e-mails til en mappe som filer med flere formater på én gang. Klik i 45 dages gratis prøveperiode! |
Kutools til Outlook: med snesevis af praktiske Outlook-tilføjelsesprogrammer, der er gratis at prøve uden begrænsning på 45 dage. |
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.