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

YazarXiaoyang Değiştirme Tarihi2024-09-18

Genel olarak Outlook, tüm standart e-posta adreslerine e-posta gönderir ve belirli bir e-posta adresine gönderimi doğrudan engelleyemez. Ancak bazen Outlook’ta belirli bir e-posta adresine e-posta gönderilmesini önlemek isteyebilirsiniz. Bu durumda, bu öğretici görevi çözmek için bir VBA kodu sunar.

Belirli bir adrese giden e-postaları VBA koduyla engelleme

Aşağıdaki VBA kodu size yardımcı olabilir, lütfen aşağıdaki gibi yapın:

1. Outlook’u başlatın, ardından ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ardından, ThisOutlookSession öğesine Project-Project1 bölmesinden çift tıklayın ve 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 Adresi kısmını kendi bilgilerinizle değiştirmelisiniz.

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

3. Ardından bu kod penceresini Kaydet ve Kapat. Artık bir e-posta gönderdiğinizde, alıcı listesinde belirtilen e-posta adresi bulunursa, aşağıdaki ekran görüntüsünde gösterildiği gibi bir uyarı mesajı çıkar. Hayır seçeneğine tıklarsanız, ilgili e-posta adresi hemen silinir.

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

4.E-postayı gönderdikten sonra alıcılarını Gönderilen Öğelerklasöründen kontrol edebilirsiniz; belirli E-posta Adresi alıcılardan çıkarılmıştır, ekran görüntüsüne bakın:

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

Outlook’ta Yapay Zeka Posta Asistanı: Daha Akıllı Yanıtlar, Net İletişim (tek tıkla sihir!)

Kutools for Outlook’un Yapay Zeka Posta Asistanı ile günlük Outlook görevlerinizi hızlandırın! Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesajlarınızı zahmetsizce taslak haline getirip iyileşmenize yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş sohbetlerinize dayanarak özelleştirilmiş, net ve hemen kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metninizi netlik ve etki açısından otomatik olarak güçlendirin.
Zahmetsiz Yazım: Anahtar kelimeleri girin, gerisini çoklu Yazı Stili ile yapay zeka halletsin.
Akıllı Uzantılar: Bağlama duyarlı önerilerle fikirlerinizi daha da geliştirin.
Özetleme: Uzun e-postaların kısa ve öz özetlerini anında alın.
Küresel Erişim: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

Akıllı e-posta yanıtları
İyileştirilmiş içerik
Anahtar kelimeye dayalı taslaklar
Akıllı içerik uzantısı
E-posta özetleme
Çok dilli çeviri

Beklemeyin—Yapay Zeka Posta Asistanı’nı şimdi indirin ve keyfini çıkarın!

En İyi Office Verimlilik Araçları

Yepyeni Kutools for Outlook’i 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve oluşturma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisi kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanlayarak Gönderme / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selam Eklemesi / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…

📨E-posta Yönetimi: E-postayı Geri Çağırma, Konu Başlıklarına ve Diğerlerine Göre Dolandırıcılık E-postalarını Engelleme, Yinelenen E-postaları Silme, Gelişmiş Arama, Klasörleri Düzenleme…

📁Ek Dosyalar Pro: Toplu Kaydet, Toplu Ayır, Toplu Sıkıştır, Otomatik Kaydet, Otomatik Ayır ve Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…

👍Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Phishing’e Karşı E-postalar / 🕘Gönderenin Mevcut Saati: Saat Dilimini Göster…

👩🏼‍🤝‍👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil desteğiyle!

Kutools for Outlook’u tek bir tıkla anında etkinleştirin! Beklemeyin, hemen indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi Şimdi İndir Satın Alma Sayfasına Git

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıkla indirin beş yükleyiciyiaynı anda —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

✅Tek tıkla kullanım kolaylığı: Beş kurulum paketini tek seferde indirin.
🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında ⬇ Paketi İndir 💳 Paketi Satın Al