Outlook’ta gelen e-postalardaki belirli anahtar kelimeleri otomatik olarak nasıl vurgulayabilirsiniz?

Outlook'ta her gün yüzlerce, hatta binlerce e-posta alıyor olabilirsiniz. Gelen kutusundaki belirli anahtar kelimeleri otomatik olarak vurgulamak ister misiniz? Bu makalede, Outlook’ta gelen e-postalarda belirttiğiniz anahtar kelimeleri otomatik olarak vurgulayan bir VBA kodunu tanıtacağım.

Gelen e-postalardaki anahtar kelimeleri otomatik olarak vurgulayın

---

Gelen e-postalardaki anahtar kelimeleri otomatik olarak vurgulayın

Outlook’ta bu işi gerçekleştirebilecek yerleşik bir işlev, VBA dışında mevcut değildir.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ardından sol taraftaki ThisOutlookSession öğesine çift tıklayın ve Proje bölmesinde aşağıda verilen kodu yeni kod penceresine kopyalayıp yapıştırın.

VBA: Gelen e-postalarda anahtar kelimeleri otomatik olarak vurgulama

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

 

İpucu: Kodda, bu betikte ihtiyacınıza göre anahtar kelimeleri değiştirebilirsiniz: xWordArr = Array("Kutools", "Important").

3. Ardından kodu kaydedip Outlook’a geri dönün; Giriş sekmesinde Kurallar > Kuralları ve Uyarıları Yönet seçeneğine tıklayın.

4. Kurallar ve Uyarılar iletişim kutusunda, Yeni Kural düğmesine tıklayın, E-posta Kuralları sekmesinde; ardından açılan Kural Sihirbazı iletişim kutusunda Gönderdiğim iletilere kural uygula seçeneğini işaretleyin.

5. Üçüncü iletişim kutusuna gitmek için İleri > İleri > Evet seçeneğine tıklayın; ardından 1. Adım bölümünden bir betiği çalıştır seçeneğini işaretleyin. Sonra, 2. Adım bölümünden bir betik seçeneğine tıklayarak Betik Seç iletişim kutusunu açın ve şu kodu seçin: Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Ardından Tamam seçeneğine tıklayın.

6. İleri > İleri, son iletişim kutusunda bu kurala bir ad verin.

7. Bitir > Tamam seçeneğine tıklayarak kuralı tamamlayın.

Şimdi itibarıyla, belirttiğiniz anahtar kelimeler gelen e-postalarda otomatik olarak vurgulanacak.

---

Outlook'ta birden fazla e-postayı diğer biçimli dosyalara (PDF/HTML/WORD/EXCEL) kaydedin veya dışa aktarın

Bazen Outlook'ta e-postaları bir klasöre başka biçimli dosyalar olarak, örneğin PDF, Word veya Excel Dosyaları gibi biçimlerde kaydetmek veya dışa aktarmak isteyebilirsiniz. Outlook'ta 'Farklı Kaydet' ve 'Dışa Aktar' işlevlerinden hiçbiri bu işi gerçekleştiremez. Ancak Kutools for Outlook'nin Save as fileyardımcı programı, birden fazla e-postayı aynı anda çoklu biçimlerde dosya olarak bir klasöre dışa aktarabilir.    45 günlük ücretsiz deneme için tıklayın!

Kutools for Outlook: 45 gün boyunca sınırsız olarak ücretsiz deneyin; size özel onlarca kullanışlı Outlook eklentisiyle!