Перейти до основного матеріалу

Як автоматично виділяти певні ключові слова з вхідних електронних листів в Outlook

В Outlook ви можете отримувати сотні і тисячі електронних листів щодня, чи хотіли ви коли-небудь автоматично виділяти деякі конкретні ключові слова з вхідних електронних листів? У цій статті я представляю код VBA для автоматичного виділення ключових слів, які ви вказуєте з вхідних повідомлень електронної пошти в Outlook.

Автоматичне виділення ключових слів із вхідних електронних листів


Автоматичне виділення ключових слів із вхідних електронних листів

Жодна вбудована функція в Outlook не може впоратися з цією роботою, крім VBA.

1. прес Alt + F11 ключ, щоб увімкнути Microsoft Visual Basic для додатків вікна.

2. Потім двічі клацніть ThisOutlookSession в лівій Проекти і скопіюйте та вставте код нижче в нове вікно коду.

VBA: автоматичне виділення ключових слів у вхідних повідомленнях електронної пошти

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

Порада: у коді ви можете змінити ключові слова, як вам потрібно в цьому сценарії xWordArr = масив ("Кутулс""Важливий") .

3. Потім збережіть код і поверніться до Outlook , під Головна вкладка, клацніть Правила > Керування правилами та сповіщеннями.
doc автовиділення тексту 1

4 В Правила та попередження діалог, клацніть Нове правило при Правила електронної пошти , а потім у Майстер правил діалог, клацніть Застосувати правило щодо отриманих повідомлень.
doc автовиділення тексту 2

5. клацання МАЙБУТНІ > МАЙБУТНІ > Так щоб перейти до третього діалогового вікна, поставте галочку запустити скрипт від Step1 розділ, а потім натисніть скрипт in Step2 розділ, щоб увімкнути Виберіть Сценарій виберіть цей код Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Клацання OK.
doc автовиділення тексту 3 doc автовиділення тексту 4

6. клацання МАЙБУТНІ > МАЙБУТНІ, в останньому діалоговому вікні дайте назву цьому правилу.
doc автовиділення тексту 5

7. клацання обробка > OK щоб закінчити правило.

Відтепер зазначені вами ключові слова автоматично виділятимуться у вхідних електронних листах.
doc автовиділення тексту 6


Збережіть або експортуйте кілька електронних листів до інших файлів fomat (PDF / HTML / WORD / EXCEL) у програмі Outlook

Іноді вам може знадобитися зберегти або експортувати електронні листи до папки як інші файли формату, такі як файли PDF, Word або Excel в Outlook. У програмі Outlook жодна із функцій Зберегти як та Експорт не може обробити цю роботу. Однак Kutools для Outlook's Save as file Утиліта може експортувати декілька електронних листів у папку як файли з різними форматами одночасно.    Натисніть на 45-денну безкоштовну пробну версію!
doc зберегти як файл -
 
Kutools для Outlook: з десятками зручних надбудов Outlook, які можна безкоштовно спробувати без обмежень протягом 45 днів.

Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення ProПакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

 

 

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