Ana içeriğe atla

Outlook üzerinden göndermeden önce alıcı adresleri nasıl kontrol edilir?

Bazı zamanlarda, Outlook üzerinden E-posta gönderirken Kime, Bilgi veya BCC alanlarına bazı önemli alıcılar eklemeyi kaçırabilirsiniz. Burada, Outlook üzerinden göndermeden önce belirli e-posta adreslerinin eklenip eklenmediğini kontrol etmek için bir yöntem sunabilirim.

VBA kodu ile göndermeden önce adresleri kontrol edin


VBA kodu ile göndermeden önce adresleri kontrol edin

Burada iki kodum var, bu işi çözmenize yardımcı olabilir, ihtiyacınız olan birini seçebilirsiniz.

1. Basın Alt + F11keys etkinleştirmek Uygulamalar için Microsoft Visual Basic pencere.

2. Çift tıklama Bu OutlookOturumu itibaren Project1 bölmesini kullanarak kod düzenleyiciyi açın, aşağıdaki kodu kopyalayıp düzenleyiciye yapıştırın.

VBA: göndermeden önce Alıcı alanındaki alıcı adresini kontrol edin

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("", "", "")
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 göndermeden önce alıcı adresini kontrol edin 1

Kodda değiştirebilirsiniz ("""""") ihtiyaç duyduğunuz gerçek alıcılara.

3. Sonra da Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Tools > Referanslar. Kontrol Microsoft Komut Dosyası Çalışma Zamanı onay kutusu Referanslar-Proje1 iletişim.

doc göndermeden önce alıcı adresini kontrol edin 2 doc sağ ok doc göndermeden önce alıcı adresini kontrol edin 3

4. tık OK ve kodu kaydedin.

Şimdi e-posta gönderirken belirtilen alıcılar Kime alanında görünmüyorsa, e-postayı gönderip göndermeyeceğinizi size hatırlatmak için bir iletişim kutusu açılır.
doc göndermeden önce alıcı adresini kontrol edin 4

Yukarıdaki kodla, yalnızca içindeki e-posta adreslerini kontrol eder. için alan, kontrol etmek istiyorsanız için, CC ve BCC alanları aşağıdaki kodu kullanabilirsiniz.

VBA: göndermeden önce Alıcı / CC / BCC alanlarında alıcı adresini kontrol edin

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 = ""
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 kod ile kontrol etmenize gerek yok Microsoft Komut Dosyası Çalışma Zamanı onay kutusu, yalnızca etkili olması için kodu doğrudan kaydedin.


En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler ProToplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

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

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations