Outlook'ta belirli bir kişiden gelen tüm gelen e-postaları otomatik olarak nasıl açabilirim?

Günlük işlerinizde Outlook’unuza çok sayıda e-posta gelebilir; bu da belirli bir kişiden gelen önemli mesajların gözden kaçmasına neden olabilir. Önemli e-postaları kaçırmamak için, belirli bir gönderenden gelen mesajların Outlook’a ulaştıkları anda otomatik olarak açılmasını sağlayabilirsiniz. Bu makalede, belirli bir gönderenden gelen tüm e-postaları otomatik olarak açmak üzere bir VBA kodunu tanıtacağım.

Belirli bir kişiden gelen tüm gelen e-postaları VBA koduyla otomatik olarak açma

---

Belirli bir kişiden gelen tüm gelen e-postaları VBA koduyla otomatik olarak açma

Belirli bir kişiden gelen e-postaları otomatik olarak açmanıza yardımcı olacak aşağıdaki VBA kodunu kullanabilirsiniz. Lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.

2.Microsoft Visual Basic for Applicationspenceresinde, modu açmak için sol bölmedeki ThisOutlookSessionöğesine çift tıklayın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.Project1(VbaProject.OTM)

VBA kodu: Belirli bir kişiden gelen tüm e-postaları otomatik olarak açma:

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

Not: Yukarıdaki kodda, gönderenlerin e-posta adreslerini kendi adreslerinizle değiştirebilirsiniz.

3. Ardından bu kod penceresini **Kaydet ve Kapat**'a tıklayarak kapatın. Kodun etkili olması için Outlook’u yeniden başlatmanız gerekir. Bundan sonra, belirttiğiniz kişilerden gelen e-postalar otomatik olarak açılacaktır. Ekran görüntüsüne bakın: