Przejdź do głównej zawartości

Jak automatycznie wyróżniać określone słowa kluczowe z przychodzących wiadomości e-mail w Outlooku

W programie Outlook możesz codziennie otrzymywać setki i tysiące wiadomości e-mail, czy kiedykolwiek chciałeś automatycznie wyróżniać określone słowa kluczowe z przychodzących wiadomości e-mail? W tym artykule wprowadzam kod VBA, aby automatycznie wyróżniać słowa kluczowe, które określasz w przychodzących wiadomościach e-mail w Outlooku.

Automatyczne podświetlanie słów kluczowych z przychodzących wiadomości e-mail


Automatyczne podświetlanie słów kluczowych z przychodzących wiadomości e-mail

Żadna funkcja wbudowana w programie Outlook nie może obsłużyć tego zadania, z wyjątkiem VBA.

1. naciśnij Alt + F11 klawisz, aby włączyć Microsoft Visual Basic for Applications okno.

2. Następnie kliknij dwukrotnie Ta sesja programu Outlook w lewo Projekty okienku, a następnie skopiuj i wklej poniższy kod do nowego okna kodu.

VBA: Automatyczne podświetlanie słów kluczowych w przychodzących wiadomościach e-mail

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

Wskazówka: w kodzie, możesz zmienić słowa kluczowe według potrzeb w tym skrypcie xWordArr = Array ("Kutools""Ważny") .

3. Następnie zapisz kod i wróć do programu Outlook , pod Strona główna tab, kliknij Zasady > Zarządzaj regułami i alertami.
automatycznie wyróżniony tekst dokumentu 1

4. w Reguły i alerty dialog, kliknij Nowa zasada dla Zasady dotyczące poczty elektronicznej kartę, a następnie w Kreator reguł dialog, kliknij Zastosuj regułę do otrzymywanych wiadomości.
automatycznie wyróżniony tekst dokumentu 2

5. kliknij Następna > Następna > Tak aby przejść do trzeciego okna dialogowego, zaznacz uruchom skrypt od Step1 sekcja, a następnie kliknij skrypt in Step2 sekcja, aby włączyć Wybierz Skrypt wybierz ten kod Projekt1.ThisOutlookSession.AutoHighlight_SpecificWords. Kliknij OK.
automatycznie wyróżniony tekst dokumentu 3 automatycznie wyróżniony tekst dokumentu 4

6. kliknij Następna > Następna, w ostatnim oknie dialogowym podaj nazwę tej reguły.
automatycznie wyróżniony tekst dokumentu 5

7. kliknij koniec > OK zakończyć regułę.

Odtąd określone słowa kluczowe będą automatycznie podświetlane w przychodzących wiadomościach e-mail.
automatycznie wyróżniony tekst dokumentu 6


Zapisz lub eksportuj wiele wiadomości e-mail do innych plików fomatów (PDF / HTML / WORD / EXCEL) w programie Outlook

Czasami możesz chcieć zapisać lub wyeksportować wiadomości e-mail do folderu jako pliki w innym formacie, takie jak pliki PDF, Word lub Excel w programie Outlook. W programie Outlook żadna z funkcji Zapisz jako i Eksportuj nie obsługuje tego zadania. Jednak, Kutools dla programu Outlook's Save as file narzędzie może eksportować wiele wiadomości e-mail do folderu jako pliki w wielu formatach jednocześnie.    Kliknij na 45-dniowy bezpłatny okres próbny!
doc zapisz jako plik
 
Kutools dla programu Outlook: dzięki dziesiątkom przydatnych dodatków do programu Outlook można bezpłatnie wypróbować bez ograniczeń w ciągu 45 dni.

Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki ProZapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

 

 

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