Перейти к основному содержанию

Как автоматически выделять определенные ключевые слова из входящих писем в Outlook

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

Автоматическое выделение ключевых слов из входящих писем


Автоматическое выделение ключевых слов из входящих писем

Никакая встроенная функция в Outlook не может справиться с этой задачей, кроме VBA.

1. Нажмите Alt + F11 ключ для включения Microsoft Visual Basic для приложений окно.

2. Затем дважды щелкните Эта сессия Outlook слева Проект панель, скопируйте и вставьте приведенный ниже код в новое окно кода.

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 = Массив ("Кутулс,Важнo") .

3. Затем сохраните код и вернитесь в Outlook , под Главная вкладку нажмите Правила > Управление правилами и предупреждениями.
документ автоматически выделяет текст 1

4. в Правила и предупреждения диалоговое окно, нажмите Новое правило под Правила электронной почты вкладка, затем в Мастер правил диалоговое окно, нажмите Применить правило для сообщений, которые я получаю.
документ автоматически выделяет текст 2

5. Нажмите Следующая > Следующая > Да чтобы перейти к третьему диалогу, отметьте запустить сценарий от Step1 раздел, затем нажмите скрипт in Step2 раздел для включения Выбрать сценарий диалог, выберите этот код Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Нажмите OK.
документ автоматически выделяет текст 3 документ автоматически выделяет текст 4

6. Нажмите Следующая > Следующаяв последнем диалоге дайте имя этому правилу.
документ автоматически выделяет текст 5

7. Нажмите Завершить > OK чтобы закончить правило.

С этого момента указанные вами ключевые слова будут автоматически выделяться во входящих письмах.
документ автоматически выделяет текст 6


Сохранение или экспорт нескольких писем в другие файлы формата (PDF / HTML / WORD / EXCEL) в Outlook

Иногда вам может потребоваться сохранить или экспортировать электронные письма в папку в виде файлов другого формата, таких как файлы PDF, Word или Excel в Outlook. В Outlook ни одна из функций «Сохранить как» и «Экспорт» не может справиться с этой задачей. Тем не мение, Kutools for Outlook's Save as file Утилита может экспортировать несколько писем в папку в виде файлов с несколькими форматами одновременно.    Нажмите, чтобы получить 45-дневную бесплатную пробную версию!
документ сохранить как файл
 
Kutools for Outlook: с десятками удобных надстроек Outlook, попробуйте бесплатно без ограничений в течение 45 дней.

Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для 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