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

Author: Xiaoyang Last Modified: 2025-08-07

Günlük işlerimizde, belki Outlook'umuza birçok e-posta geliyor ve bu durumda, belirli bir kişiden gelen önemli e-postaları gözden kaçırabilirsiniz. Birinden gelen önemli e-postaları kaçırmamak için, e-postaların Outlook'unuza geldiğinde otomatik olarak açılmasını sağlayabilirsiniz. Bu makalede, belirli bir gönderenden gelen tüm e-postaları açmak için bir VBA kodunu tanıtacağım.

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

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

Belirli bir kişiden gelen e-postaları otomatik olarak açmak için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu adımları izleyin:

1. ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayarak modu açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

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 adreslerini kendi adreslerinizle değiştirebilirsiniz.

3. Ardından, bu kod penceresini kaydedip kapatın. Kodun etkili olması için Outlook'u yeniden başlatın; artık belirttiğiniz kişilerden gelen e-postalar geldiğinde hepsi otomatik olarak açılacaktır. Ekran görüntüsüne bakın: