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

Günlük çalışmalarımızda, belki Outlook'umuza gelen birçok e-posta olabilir, bu durumda, belirli bir kişiden gelen bazı önemli e-postaları görmezden gelebilirsiniz. Birinden gelen bazı önemli e-postaları kaçırmamak için, Outlook'unuza geldiğinizde e-postaların otomatik olarak açılmasını sağlayabilirsiniz. Bu yazıda, belirli bir göndericiden gelen tüm e-postaları açmak için bir VBA kodu tanıtacağım.

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

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

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

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.

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

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 = ";"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

gönderen tarafından doc açık e-postalar 1

not: Yukarıdaki kodda, gönderenlerin adreslerini kendiniz değiştirebilirsiniz.

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

gönderen tarafından doc açık e-postalar 2