Jak automaticky zvýraznit konkrétní klíčová slova z příchozích e-mailů v aplikaci Outlook

V Outlooku můžete dostávat stovky a tisíce e-mailů každý den, chtěli jste někdy automaticky zvýrazňovat některá konkrétní klíčová slova z příchozích e-mailů? V tomto článku představuji kód VBA, který automaticky zvýrazní klíčová slova, která určíte z příchozích e-mailů v Outlooku.

Automaticky zvýrazňovat klíčová slova z příchozích e-mailů

Automaticky zvýrazňovat klíčová slova z příchozích e-mailů

Tuto úlohu nemůže zpracovat žádná vestavěná funkce v aplikaci Outlook, kromě VBA.

1. lis Alt + F11 klíč k povolení Microsoft Visual Basic pro aplikace okno.

2. Poté dvakrát klikněte ThisOutlookSession vlevo Projekt podokno a zkopírujte a vložte pod kód do nového okna s kódem.

VBA: Automatické zvýraznění klíčových slov v příchozích e-mailech

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: v kódu můžete změnit klíčová slova podle potřeby v tomto skriptu xWordArr = Array ("Kutools""důležitý") .

3. Poté kód uložte a vraťte se zpět do aplikace Outlook ， pod Domů klepněte na kartu pravidla > Spravujte pravidla a upozornění.

4. V Pravidla a upozornění dialog, klepněte na tlačítko Nové pravidlo pod Pravidla e-mailu kartu, pak dovnitř Průvodce pravidly dialog, klepněte na tlačítko Použijte pravidlo na zprávy, které dostávám.

5. cvaknutí další > další > Ano Chcete-li přejít na třetí dialog, zaškrtněte políčko spustit skript od Step1 a klikněte na tlačítko skript in Step2 sekci povolit Vyberte skript vyberte tento kód Project1 ThisOutlookSession.AutoHighlight_SpecificWords, klikněte OK.

6. cvaknutí další > další, v posledním dialogu uveďte název tohoto pravidla.

7. cvaknutí úprava > OK dokončit pravidlo.

Od této chvíle budou klíčová slova, která jste zadali, automaticky zvýrazněna v příchozích e-mailech.

Uložte nebo exportujte více e-mailů do jiných souborů FOMAT (PDF / HTML / WORD / EXCEL) v aplikaci Outlook

Někdy můžete e-maily uložit nebo exportovat do složky jako jiné soubory formátu, jako jsou soubory PDF, Word nebo Excel v Outlooku. V aplikaci Outlook nemůže tuto úlohu zpracovat žádná z funkcí Uložit jako a Export. Nicméně, Kutools pro aplikaci Outlook's Save as file nástroj může exportovat více e-mailů do složky jako soubory s více formáty najednou.    Klikněte na 45denní zkušební verzi zdarma!

Kutools pro Outlook: s desítkami užitečných doplňků aplikace Outlook, můžete to vyzkoušet bez omezení za 45 dní.

---

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy Pro: Dávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup