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
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (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: Připomenout e-maily / 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ů / Připomeňte si, když přijdou důležité e-maily / 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 ...
