Ana içeriğe atla

Outlook'ta gelen e-postalardan belirli anahtar kelimeleri otomatik olarak vurgulama

Yazar: Güneş Son Değiştirilme Tarihi: 2018-11-14

Outlook'ta her gün yüzlerce ve binlerce e-posta alabilirsiniz, hiç gelen e-postalardaki bazı belirli anahtar kelimeleri otomatik olarak vurgulamak istediniz mi? Bu makalede, Outlook'ta gelen e-postalardan belirttiğiniz anahtar kelimeleri otomatik olarak vurgulamak için bir VBA kodu tanıtıyorum.

Gelen e-postalardaki anahtar kelimeleri otomatik olarak vurgulayın


Gelen e-postalardaki anahtar kelimeleri otomatik olarak vurgulayın

Bu işi VBA dışında hiçbir yerleşik işlevin üstesinden gelemez.

1. Basın Alt + F11 etkinleştirmek için anahtar Uygulamalar için Microsoft Visual Basic pencere.

2. Ardından çift tıklayın Bu OutlookOturumu solda Proje bölmesini açın ve aşağıdaki kodu kopyalayıp yeni kod penceresine yapıştırın.

VBA: Gelen e-postalardaki anahtar kelimeleri otomatik olarak vurgulayın

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

Bahşiş: kodda, anahtar kelimeleri bu komut dosyasında ihtiyaç duyduğunuz şekilde değiştirebilirsiniz xWordArr = Dizi ("Kutools""Hatırlatma") .

3. Ardından kodu kaydedin ve Outlook'a geri dönün , Ana Sayfa sekmesini tıklayın kurallar > Kuralları ve Uyarıları Yönetin.
doc otomatik vurgulu metin 1

4. içinde Kurallar ve Uyarılar iletişim, tıklayın Yeni kural altında E-posta Kuralları sekme, sonra Kural Sihirbazı iletişim, tıklayın Alınan iletilere kural uygula.
doc otomatik vurgulu metin 2

5. tık Sonraki > Sonraki > Evet üçüncü iletişim kutusuna gitmek için kontrol edin bir komut dosyası çalıştır itibaren Step1 bölümüne gelin ve ardından tıklayın Bir komut dosyası in Step2 etkinleştirmek için bölüm Komut Dosyası Seçin iletişim kutusu, bu kodu seçin Project1.ThisOutlookSession.AutoHighlight_SpecificWords. tıklayın OK.
doc otomatik vurgulu metin 3 doc otomatik vurgulu metin 4

6. tık Sonraki > Sonraki, son iletişim kutusunda bu kurala bir ad verin.
doc otomatik vurgulu metin 5

7. tık Bitiş > OK kuralı bitirmek için.

Bundan böyle, belirttiğiniz anahtar kelimeler gelen e-postalarda otomatik olarak vurgulanacaktır.
doc otomatik vurgulu metin 6


Outlook'ta diğer format dosyalarına (PDF / HTML / WORD / EXCEL) Birden Fazla e-postayı Kaydetme veya Dışa Aktarma

Bazen, e-postaları Outlook'taki PDF, Word veya Excel dosyaları gibi diğer biçim dosyaları gibi bir klasöre kaydetmek veya dışa aktarmak isteyebilirsiniz. Outlook'ta, Farklı Kaydet ve Dışa Aktar işlevi bu işi gerçekleştiremez. Ancak, Outlook için Kutools's Save as file yardımcı program birden çok e-postayı bir klasöre aynı anda birden çok formatta dosyalar olarak dışa aktarabilir.    45 günlük ücretsiz deneme için tıklayın!
doc dosya olarak kaydet
 
Outlook için Kutools: düzinelerce kullanışlı Outlook eklentisiyle, 45 günde sınırlama olmaksızın ücretsiz olarak deneyin.

En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler ProToplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

👩🏼‍🤝‍👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme  /  Kişi Grubunu Bireysel Gruplara Bölme  /  Doğum Günü Hatırlatıcılarını Kaldır ...

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

 

 

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