Как автоматически выделить определенные ключевые слова в входящих письмах в Outlook
В 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, на вкладке Главная щелкните Правила > Управление правилами и оповещениями.
4. В диалоговом окне Правила и оповещения щелкните Новое правило в разделе Правила электронной почты затем в диалоговом окне Мастер правил щелкните Применить правило к сообщениям, которые я получаю.
5. Щелкните Далее > Далее > Да чтобы перейти к третьему диалогу, отметьте выполнить сценарий из раздела Шаг 1 затем щелкните сценарий в Шаг 2 разделе, чтобы открыть диалоговое окно Выбор сценария выберите этот код Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Щелкните OK.
6. Щелкните Далее > Далее, в последнем диалоге дайте имя этому правилу.
7. Щелкните Завершить > OK, чтобы завершить создание правила.
Теперь указанные вами ключевые слова будут автоматически выделяться во входящих письмах.
Сохранение или экспорт нескольких писем в файлы других форматов (PDF/HTML/WORD/EXCEL) в Outlook |
| Иногда вам может понадобиться сохранить или экспортировать письма в папку в виде файлов другого формата, таких как PDF, Word или Excel файлы в Outlook. Ни функция Сохранить как, ни функция Экспорт в Outlook не могут справиться с этой задачей. Однако утилита Kutools для Outlook «Сохранить как файл» может экспортировать несколько писем в папку в виде файлов с несколькими форматами одновременно. Нажмите для бесплатной 45-дневной пробной версии! |
 |
| Kutools для Outlook: десятки удобных надстроек для Outlook, бесплатно попробуйте без ограничений в течение 45 дней. |
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Выпущена бесплатная версия Kutools для Outlook!
Оцените совершенно новый Kutools для Outlook с более чем100 потрясающими функциями! Нажмите, чтобы скачать сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку Email / Авто Копия/Скрытая копия по правилу при отправке письма / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Автоматическое разделение Email с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические Email по теме и другим признакам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и современных Эмодзи / Напоминания о важных письмах / Сворачивание Outlook вместо закрытия ...
👍 Мгновенные действия в один клик: Ответить всем с вложениями / Антифишинг Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем любимом языке – поддерживается английский, испанский, немецкий, французский, китайский и более40 других языков!
