Перейти к содержимому

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

Author: Sun Last Modified: 2025-06-05

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

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


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

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

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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 = Array("Kutools", "Important").

3. Затем сохраните код и вернитесь в Outlook, на вкладке Главная щелкните Правила > Управление правилами и оповещениями.
doc auto highlight text 1

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

5. Щелкните Далее > Далее > Да чтобы перейти к третьему диалогу, отметьте выполнить сценарий из раздела Шаг 1 затем щелкните сценарий в Шаг 2 разделе, чтобы открыть диалоговое окно Выбор сценария выберите этот код Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Щелкните OK.
doc auto highlight text 3 doc auto highlight text 4

6. Щелкните Далее > Далее, в последнем диалоге дайте имя этому правилу.
doc auto highlight text 5

7. Щелкните Завершить > OK, чтобы завершить создание правила.

Теперь указанные вами ключевые слова будут автоматически выделяться во входящих письмах.
doc auto highlight text 6


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

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

Лучшие инструменты для повышения продуктивности в Office

Срочные новости: Kutools для Outlook запускает бесплатную версию!

Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email: отвечает, резюмирует, оптимизирует, расширяет, переводит и составляет письма.

📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...

📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...

📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...

🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...

👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...

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

Мгновенно активируйте Kutools для Outlook одним кликом. Не ждите — скачайте сейчас и повысьте свою эффективность!

kutools for outlook features1 kutools for outlook features2