Belirli Kişilerden Gelen Tüm E-postaları Outlook'ta Otomatik Olarak Açma

Outlook, belirli kişilerden gelen tüm e-postaları otomatik olarak açacak bir özellik sağlamaz. Böylece, bu makale size böyle bir yöntemi gösterecek.

Amirinizden gelen e-postalar gibi son derece önemli kişilerden gelen e-postaları kaçırmak istemediğinizden emin olabilirsiniz. Bu durumda, posta kutunuza bu tür e-postalar geldiğinde belirli bir uyarıyı görüntülemek için Outlook kuralını kullanabilirsiniz. Bunun dışında, Outlook'un bu tür e-postaları otomatik olarak açmasını da isteyebilirsiniz. Outlook kuralı tarafından desteklenmese de yine de Outlook VBA üzerinden gerçekleştirebilirsiniz. Şimdi, aşağıda size yardımcı olması için bir parça VBA kodu göstereceğiz. Lütfen onu almak için okumaya devam edin.

Belirli Kişilerden Gelen Tüm E-postaları Otomatik Olarak Aç

1. İçintart ile Outlook VBA düzenleyicisine “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
2. Ardından, “ThisOutlookSession” projesini açın ve aşağıdaki VBA kodunu içine kopyalayın.

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

'Occurs when incoming emails arrive in Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strSenders As String
    Dim varSenders As Variant
    Dim i As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Change the specific persons
       strSenders = "bob_black@datanumen.com; shelly@datanumen.com; kim@datanumen.com"
 
       varSenders = Split(strSenders, ";")
 
       'Open the emails from specific persons
       For i = 0 To UBound(varSenders)
           If objMail.SenderEmailAddress = varSenders(i) Then
              objMail.Display
              Exit For
           End If
       Next
    End If
End Sub

3. Bundan sonra restart Bu makroyu etkinleştirmek için Outlook uygulamanız.
4. Şimdi, bir deneyebilirsin. Belirli göndericilerden gelen bir e-postayı Inbox'a taşımanız yeterlidir. Hemen, bu e-posta otomatik olarak kendi penceresinde açılacaktır.

Sinir bozucu Outlook Sorunlarını Çözün

Outlook'u onlarca yıldır kullandıysanız, çeşitli hatalar ve sorunlarla karşılaşmanız çok muhtemeldir. Örneğin, ne zaman starOutlook'unuzu çalıştırırken, Outlook PST dosyanıza erişilemeyeceğini belirten bir hata mesajı aldınız. Bu hata genellikle PST bozulmasını gösterir. Bu durumda, yapmanız gerekecek PST'yi düzelt dosya. Yalnızca gelen kutusu onarım aracını kullanırsanız oldukça karmaşık olabilir. Yine de, daha güçlü ve güvenilir bir araca başvurursanız, örneğin DataNumen Outlook Repair, görev çok daha kolay olurdu.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql'yi düzelt ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com