Outlook'unuzda Belirli Bir E-posta Adresine E-posta Göndermeyi Nasıl Engellersiniz?

Birçok kullanıcı, Outlook'ta yanlışlıkla belirli bir e-posta adresine e-posta gönderilmesini engellemeyi umar. Bu nedenle, bu yazıda bunu gerçekleştirmek için bir yöntem tanıtacağız.

Outlook, belirli bir e-posta adresine e-posta gönderimini engellemek için yerleşik bir özellik sunmamaktadır. Bu nedenle, bunu gerçekleştirmek istiyorsanız, biraz kodlama gereklidir. Şimdi, aşağıda böyle bir VBA kodunu paylaşacağız. VBA'yı nasıl kullanacağınızı bilmiyorsanız, önceki yazıyı okuyabilirsiniz – “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".

E-postaların Belirli Bir E-posta Adresine Gönderilmesini Engelleyin

1. İlk başta, Outlook VBA düzenleyicisine “Alt + F11” ile erişin.
2. Ardından, "ThisOutlookSession" projesine aşağıdaki kodu ekleyin.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objRecipient As Outlook.Recipient
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Expand the contact groups in Recipients
       ContactGroupFound = True
       Do While ContactGroupFound = True
          Set objRecipients = objMail.Recipients
          ContactGroupFound = False
 
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
       Loop
 
       'Remove specific email address
       For Each objRecipient In objRecipients
           If objRecipient.Address = "shelly@datanumen.com" Then
              If MsgBox("Do you want to email to " & Chr(34) & "shelly@datanumen.com" & Chr(34) & "?", vbExclamation + vbYesNo) = vbNo Then
                 objRecipient.Delete
              End If
           End If
       Next
    End If
End Sub

3. Bundan sonra, “Uygulamalar için Microsoft Visual Basic” penceresinden çıkın.
4. Sonunda, aşağıdaki adımlarla deneyin.

• Başlamak için bir e-posta oluşturun ve alıcıları doldurun.
• Ardından, "Gönder" düğmesini tıklayın.
• Makro, varsa alıcılardaki kişi gruplarını genişletmek ve alıcıların belirli bir e-posta adresini içerip içermediğini öğrenmek için hemen çalışacaktır.
• Adres bulunursa, aşağıdaki şekilde gösterildiği gibi bir mesaj alacaksınız.
• "Hayır"ı seçerseniz, ilgili e-posta adresi hemen silinir.
• Posta gönderildikten sonra, kesinlikle belirli bir e-posta adresini içermeyen alıcılarını kontrol edebilirsiniz.

Bozuk Outlook Dosyanızı Onarın

Outlook dosyanız hiç hasar gördü mü? Bu, Outlook'taki en can sıkıcı sorunlardan biri olsa gerek. Böyle bir durumla karşılaştığınızda, sorunu çözmek için uğraşmanız gerekiyor. PST onarımı, bu biraz düğümlü. Her zamanki gibi, Scanpst'i ilk kez kullanmayı düşüneceksiniz. Ancak ne yazık ki bu gibi durumlarda başarısız olabilir. Tatil yeriniz ya daha deneyimli bir araç olmalı, örneğin DataNumen Outlook Repairveya profesyonel PST kurtarma hizmeti.

Yazar Tanıtımı:

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