Outlook'ta belirli bir adrese giden e-postaları nasıl engelleyebilirim?

Author: Xiaoyang Last Modified: 2025-06-10

Genel olarak, Outlook tüm normal e-posta adreslerine e-posta gönderir ve belirli bir e-posta adresine gönderimi engelleyemez. Ancak, bazen Outlook'ta belirli bir e-posta adresine e-posta göndermeyi önlemek isteyebilirsiniz. Bu durumda, bu öğretici bu görevi çözmek için bir VBA kodu tanıtacaktır.

VBA kodu ile belirli bir adrese giden e-postaları engelleme

Aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu şekilde devam edin:

1. Outlook'u başlatın, ardından Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ardından, Proje-Project1 bölmesinden ThisOutlookSession öğesine çift tıklayın ve ardından aşağıdaki kodu boş kod penceresine kopyalayıp yapıştırın:

VBA Kodu: Belirli bir adrese giden e-postaları engelleme

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub

Not: Yukarıdaki kodda, e-posta adresini kendi adresinizle değiştirmelisiniz.

doc-block-email-to-an-address-1

3. Ardından, bu kod penceresini kaydedip kapatın. Şimdi, bir e-posta gönderirken, belirli bir e-posta adresi alıcı listesinde bulunursa, aşağıdaki ekran görüntüsünde gösterildiği gibi bir uyarı mesajı çıkacaktır. Hayır'a tıklayın, belirli e-posta adresi hemen silinecektir.

doc-block-email-to-an-address-2

4. E-postayı gönderdikten sonra, Gönderilen Öğeler klasöründe alıcılarını kontrol edebilirsiniz, belirli e-posta adresi alıcılardan çıkarılmış olacaktır, ekran görüntüsüne bakınız:

doc-block-email-to-an-address-3

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler: