Çerezler bize hizmetleri sunmak yardımcı olur. Hizmetlerimizi kullanarak, çerez kullanmamızı kabul etmiş olursunuz.
İpucu: Diğer diller Google Çeviri'dir. Ziyaret edebilirsiniz English Bu linkin sürümü.
Oturum aç
x
or
x
x
Şimdi Kayıt Olun
x

or

Outlook'tan göndermeden önce alıcı adresleri nasıl kontrol edilir?

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

VBA koduyla göndermeden önce adresleri kontrol et

Hepsini Yanıtla

Outlook'taki tüm işlevlere Yanıtla seçeneğini kullandığımızda, aldığınız e-postalar hesabınızda iki tane daha varsa, hesaplarımızı Alıcı alanına da ekleyebiliriz. Bu durumda hesaplarınızı Kime ve CC alanlarından kaldırmak isteyebilirsiniz. Outlook için Ktools's Benim adım Bu işi çabucak çözme konusunda size bir iyilik yapabilir. Tek bir tıklamaya ihtiyacınız varsa, Outlook'daki tüm myselft hesapları To and CC alanlarından kaldırılacak. 45 gün ücretsiz deneme için tıklayınız!
doc cevabı hesabı hariç tut
doku ok dowm

doc answer 2 hesabını hariç tut
Outlook için Kutools: düzinelerce kullanışlı Outlook eklentileri ile, 45 günlerinde herhangi bir sınırlama olmaksızın ücretsiz olarak çalışın.

VBA koduyla göndermeden önce adresleri kontrol et

Burada, bu işi çözmenize yardımcı olacak iki kod var, istediğiniz gibi birini seçebilirsiniz.

1. Basın Alt + F11 ketkinleştirmek için ey Uygulamalar için Microsoft Visual Basic pencere.

2. Çift tıklama ThisOutlookSession itibaren Project1 Kod editörünü açmak için panoya kopyalayıp aşağıdaki kodu yapıştırın.

VBA: Gönderilmeden önce Alıcı alanına Kime alanında kontrol edin

Özel Alt Application_ItemSend (Object Olarak ByVal Öğesi, Boole Olarak İptal Et) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Varyant Olarak Dim xAddress Gibi Dize Dim xRecipient Alıcısı Olarak Dim xPrompt As String Dize xYesNo Tam Tamsayı Dim xDictionary Olarak Scripting.Dictionary On On Error Özgeçmiş Sonraki Set xDictionary = Yeni Scripting.Dictionary xAddressArr = Dizi ("example1@126.com", "example2@126.com", "example3@126.com") i = LBound (xAddressArr) için UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i Her xRecipient için Item.Recipients için xRecipient.Type = olTo Sonra xDictionary.Exists (xRecipient.Address) Sonra xDictionary.Remove xRecipient.Address End If Next Sonraki xDictionary.Count = 0 Sonra GoTo L1 i = 0 To xDictionary.Count - 1 xAddress = "" Daha Sonra xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "Bunu şu şekilde göndermiyorsunuz: "& xAddress &". Mail'i göndermek istediğinizden emin misiniz? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Outlook için Kutools") xYesNo = vbNo Sonra İptal = True L1: Set xRecipient = Hiçbir Şey Set xDictionary = Hiçbir şey Sonu Alt

1 göndermeden önce alıcı adresini kontrol edin

Kodda, değiştirebilirsiniz ("example1@126.com", "example2@126.com", "example3@126.com") İhtiyacınız olan gerçek alıcılara.

3. Sonra da Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Araçlar > Referanslar. Kontrol Microsoft Komut Dosyası Çalışma Zamanı Modülü onay kutusu Kaynaklar-Project1 iletişim.

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

4. tık OK ve kodu kaydedin.

Şimdi E-postaları gönderirken belirtilen alıcılar Alan alanında görünmezse, e-postayı gönderip gönderemeyeceğinizi size hatırlatmak için bir iletişim kutusu açılır.
4 göndermeden önce alıcı adresini kontrol edin

Yukarıdaki kodla, yalnızca e-posta adreslerini kontrol edin için check-in yapmak istiyorsanız için, CC ve BCC alanları, aşağıdaki kodu kullanabilirsiniz.

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

Özel Alt Application_ItemSend (Object Olarak ByVal Öğesi, Boole Olarak İptal Et) 'UpdatebyExtendoffice20180523 Dim xRecipients Olarak Outlook.Recipients Dim xRecipient Outlook olarak .Recipient Dim xPos Gibi Tamsayı Dim xYesNo Tamsayı Dim xPrompt Gibi Dize Dim xAddress Hata On Dize Hata Devam Sonraki Öğe. Class <> olMail Sonra Çıkış Sub Set xRecipients = Öğe.Recipients xAddress = "example1@gmail.com" Her bir xRecipient için xRecipient xPos = InStr (LCase (xRecipient.Adres), xAddress) xPos = 0 Sonra xPrompt = " Bunu "& xAddress &" adresine gönder. Bunu göndermek istediğinizden emin misiniz? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Outlook için Kutools") xYesNo = vbNo Sonra İptal = True End If Sonraki xRecipient End Sub

Bu kodla, kontrol etmeniz gerekmez Microsoft Komut Dosyası Çalışma Zamanı Modülü onay kutusu, sadece etkili olması için kodu kaydedin.



Kutools for Outlook

Outlook için 100'ten Fazla Gelişmiş İşlevler 2010, 2013, 2016, 2019 ve 365

Banner 201812 için minik görünüm için ekran görüntüsü kutools

Diğer Özellikler | Bedava indir | Yüzlerce işlev için yalnızca $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.