Note: The other languages of the website are Google-translated. Back to English

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 Home klepněte na kartu pravidla > Spravujte pravidla a upozornění.
text automatického zvýraznění dokumentu 1

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.
text automatického zvýraznění dokumentu 2

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.
text automatického zvýraznění dokumentu 3 text automatického zvýraznění dokumentu 4

6. cvaknutí další > další, v posledním dialogu uveďte název tohoto pravidla.
text automatického zvýraznění dokumentu 5

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.
text automatického zvýraznění dokumentu 6


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!
doc uložit jako soubor
 
Kutools pro Outlook: s desítkami užitečných doplňků aplikace Outlook, můžete to vyzkoušet bez omezení za 45 dní.

Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (5)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Nepracoval
Tento komentář byl moderátorem webu minimalizován
nefunguje pro verzi outlook o365 na Windows 10 Použil jsem vše
Tento komentář byl moderátorem webu minimalizován
nefungoval pro o365 nainstalovaný outlook na Windows 10
Tento komentář byl moderátorem webu minimalizován
"spustit skript" se nezobrazuje, což je podle mého názoru možnost, kterou můj zaměstnavatel nepovoluje
Tento komentář byl moderátorem webu minimalizován
měli byste změnit registrační klíč, podívejte se prosím https://www.slipstick.com/outlook/rules/outlook-run-a-script-rules/ ale výše uvedený proces nefunguje pro verzi outlook o365 na Windows 10
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění