Ugrás a tartalomra

Hogyan lehet kiemelni az adott kulcsszavakat az Outlook bejövő e-mailjeiből

Szerző: Sun Utolsó módosítás: 2018-11-14

Az Outlook programban naponta száz és ezer e-mailt kaphat. Szeretne valaha kiemelni néhány konkrét kulcsszót a beérkező e-mailekből? Ebben a cikkben bemutatok egy VBA kódot, amely automatikusan kiemeli az Outlook bejövő e-mailjeiből megadott kulcsszavakat.

A kulcsszavak automatikus kiemelése a beérkező e-mailekből


A kulcsszavak automatikus kiemelése a beérkező e-mailekből

Az Outlookban egyetlen beépített funkció sem tudja kezelni ezt a feladatot, kivéve a VBA-t.

1. nyomja meg Alt + F11 gombot a Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson duplán ThisOutlookSession balra NetPoulSafe projekt ablaktáblán, és másolja és illessze be a kódot az új kód ablakba.

VBA: A kulcsszavak automatikus kiemelése a bejövő e-mailekben

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

Tipp: a kódban szükség szerint megváltoztathatja a kulcsszavakat ebben a szkriptben xWordArr = Tömb ("Kutools""fontos") .

3. Ezután mentse el a kódot, és térjen vissza az Outlook , szakaszba Kezdőlap fülre kattintva Szabályok > Szabályok és figyelmeztetések kezelése.
doc automatikus szöveg kiemelése 1

4. Ban,-ben Szabályok és riasztások párbeszédpanelen kattintson a gombra Új szabály alatt E-mail szabályok fülre, majd be Szabály varázsló párbeszédpanelen kattintson a gombra Alkalmazz szabályt a fogadott üzenetekre.
doc automatikus szöveg kiemelése 2

5. kettyenés Következő > Következő > Igen a harmadik párbeszédablakhoz való ugráshoz jelölje be futtasson egy szkriptet ból ből Step1 szakaszban, majd kattintson a gombra forgatókönyv in Step2 szakasz engedélyezéséhez Válassza a Szkript lehetőséget párbeszédpanelen válassza ki ezt a kódot Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Kattints OK.
doc automatikus szöveg kiemelése 3 doc automatikus szöveg kiemelése 4

6. kettyenés Következő > Következő, az utolsó párbeszédpanelen adjon nevet ennek a szabálynak.
doc automatikus szöveg kiemelése 5

7. kettyenés befejez > OK hogy befejezzem a szabályt.

Ezentúl a megadott kulcsszavak automatikusan kiemelésre kerülnek a beérkező e-mailekben.
doc automatikus szöveg kiemelése 6


Több e-mail mentése vagy exportálása más fomat fájlokba (PDF / HTML / WORD / EXCEL) az Outlook programban

Előfordulhat, hogy el akarja menteni vagy exportálni az e-maileket egy mappába más formátumú fájlként, például PDF, Word vagy Excel fájlként az Outlook programban. Az Outlook programban a Mentés másként és az Exportálás egyik funkció sem képes kezelni ezt a feladatot. Azonban, Kutools az Outlook számára's Save as file segédprogram több e-mailt exportálhat egy mappába fájlként, több formátummal egyszerre.    Kattintson 45 napos ingyenes próbaidőszakra!
doc mentés fájlként
 
Kutools for Outlook: több tucat praktikus Outlook-bővítménnyel, 45 napon belül korlátozás nélkül kipróbálható.

A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments ProKötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

 

 

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