Прескочи на основното съдържание

Как автоматично да маркирате конкретни ключови думи от входящи имейли в Outlook

Автор: Слънце Последна промяна: 2018-11-14

В 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 = масив("Kutools""важно") .

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


Запазване или експортиране на множество имейли в други файлове във формат (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: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове 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