Как автоматически выделять определённые ключевые слова во входящих письмах в 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 = Array(«Kutools», «Important»).

3. После этого сохраните код и вернитесь в Outlook. На вкладке Главная нажмите Правила > Управление правилами и оповещениями.

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

5. Нажмите Далее > Далее > Да, чтобы перейти к третьему диалоговому окну. Установите флажок выполнить сценарий в разделе Шаг 1, затем щёлкните пункт сценарий в разделе Шаг 2, чтобы открыть диалоговое окно Выбор сценария и выбрать следующий код: Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Нажмите ОК.

6. Нажмите Далее > Далее, а в последнем диалоговом окне задайте имя для этого правила.

7. Нажмите Готово > ОК, чтобы завершить создание правила.

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

---

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

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

Kutools для Outlook: десятки удобных надстроек для Outlook — протестируйте их бесплатно и без ограничений в течение 45 дней!