Outlook üzerinden göndermeden önce alıcı adreslerini nasıl kontrol edebilirim?

Author: Sun Last Modified: 2025-06-10

Bazen Outlook üzerinden e-posta gönderirken, önemli bazı alıcıları To (Kime), CC (Kopya) veya BCC (Gizli Kopya) alanlarına eklemeyi unutabilirsiniz. Burada, belirli e-posta adreslerinin Outlook üzerinden gönderilmeden önce eklenip eklenmediğini kontrol etmek için bir yöntem tanıtmak istiyorum.

VBA kodu ile göndermeden önce adresleri kontrol etme

VBA kodu ile göndermeden önce adresleri kontrol etme

Burada bu işi çözmek için size yardımcı olabilecek iki kodum var, ihtiyacınıza göre herhangi birini seçebilirsiniz.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Project1 bölmesinden ThisOutlookSession öğesine çift tıklayarak kod düzenleyiciyi açın, aşağıdaki kodu kopyalayıp düzenleyiciye yapıştırın.

VBA: Göndermeden önce To (Kime) alanında alıcı adresini kontrol etme

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xAddressArr() As Variant
Dim xAddress As String
Dim xRecipient As Recipient
Dim xPrompt As String
Dim xYesNo As Integer
Dim xDictionary As Scripting.Dictionary
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
xAddressArr = Array("example1@126.com", "example2@126.com", "example3@126.com")
For i = LBound(xAddressArr) To UBound(xAddressArr)
    xDictionary.Add xAddressArr(i), True
Next i
For Each xRecipient In Item.Recipients
    If xRecipient.Type = olTo Then
        If xDictionary.Exists(xRecipient.Address) Then xDictionary.Remove xRecipient.Address
    End If
Next
If xDictionary.Count = 0 Then GoTo L1
For i = 0 To xDictionary.Count - 1
    If xAddress = "" Then
        xAddress = xDictionary.Keys(i)
    Else
        xAddress = xAddress + "; " & xDictionary.Keys(i)
    End If
Next i
xPrompt = "You are not sending this to: " & xAddress & ". Are you sure you want to send the Mail?"
xYesNo = MsgBox(xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
L1:
  Set xRecipient = Nothing
  Set xDictionary = Nothing
End Sub

doc check recipient address before sending 1

Kodda, ("example1@126.com", "example2@126.com", "example3@126.com") yerine gerçek alıcılarınızı yazabilirsiniz.

3. Daha sonra yine Microsoft Visual Basic for Applications penceresinde, Araçlar > Referanslar'a tıklayın. Referanslar-Project1 iletişim kutusunda Microsoft Scripting Runtime onay kutusunu işaretleyin.

doc check recipient address before sending 2

doc check recipient address before sending 3

4. Tamam'a tıklayın ve kodu kaydedin.

Şimdi, belirtilen alıcılar e-postaları gönderirken To (Kime) alanında görünmüyorsa, size e-postayı gönderip göndermeyeceğinizi hatırlatmak için bir diyalog penceresi açılacaktır.
doc check recipient address before sending 4

Yukarıdaki kod yalnızca To (Kime) alanındaki e-posta adreslerini kontrol eder. Eğer To (Kime), CC (Kopya) ve BCC (Gizli Kopya) alanlarını kontrol etmek istiyorsanız, aşağıdaki kodu kullanabilirsiniz.

VBA: Göndermeden önce To/CC/BCC alanlarında alıcı adresini kontrol etme

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim xPos As Integer
Dim xYesNo As Integer
Dim xPrompt As String
Dim xAddress As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xRecipients = Item.Recipients
xAddress = "example1@gmail.com"
For Each xRecipient In xRecipients
    xPos = InStr(LCase(xRecipient.Address), xAddress)
    If xPos = 0 Then
        xPrompt = "You sending this to " & xAddress & ". Are you sure you want to send it?"
        xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook")
        If xYesNo = vbNo Then Cancel = True
    End If
Next xRecipient
End Sub

Bu kodla, Microsoft Scripting Runtime onay kutusunu işaretlemenize gerek yoktur, kodu doğrudan kaydederek etkinleştirebilirsiniz.

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: