İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Outlook vasitəsilə göndərmədən əvvəl alıcıların ünvanlarını necə kontrol etmək olar?

E-poçtları Outlook vasitəsilə göndərərkən, bəzi zamanlarda, bəzi əhəmiyyətli alıcıları To, CC və ya BCC sahələrinə əlavə edə bilərsiniz. Burada, Outlook vasitəsilə göndərilməzdən əvvəl müəyyən e-poçt ünvanlarının əlavə olunduğunu yoxlamaq üçün bir üsul təqdim edə bilərəm.

VBA kodu ilə göndərməzdən əvvəl ünvanları yoxlayın

Hamısına cavab dünyagörüşümdə özümü istisna et

Outlook'dakı bütün funksiyanı Cavab istifadə etdikdə, aldığınız e-məktublar daha iki hesabı ehtiva edirsə, hesablarımızı da daxil edin. Bu halda hesablarınızı To və CC sahələrindən çıxarmaq istəyə bilərsiniz. Outlook üçün Ktools's Mənim adlarim Bu işi tez bir zamanda həll etmək üçün bir lütf edə bilərsiniz. Yalnız bir klikə ehtiyac var, Outlook'dakı bütün myselft hesabları To və CC sahələrindən çıxarılacaq. 45 gün pulsuz sınaq üçün tıklayın!
doc cavab hesabı istisna etmir
doc arrow dowm

doc cavab 2 hesabı istisna edir
Outlook üçün Kutools: 45 gün ərzində heç bir məhdudiyyət olmadan cəhd etmək üçün əlverişli onlarla Outlook əlavələri ilə.

VBA kodu ilə göndərməzdən əvvəl ünvanları yoxlayın

Burada, bu işi həll etməyə kömək edə biləcək iki kod var, ehtiyac duyduğunuz hər kəsə seçim edə bilərsiniz.

1. Basın Alt + F11 kimkan verir Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İki dəfə vurun BuOutlookSession etibarən Project1 kodu redaktoru açmaq, kodu aşağıda kopyalayıb yapıştırın.

VBA: Göndərmədən qabaqda alan ünvanını yoxlayın

Şəxsi Sub Application_ItemSend (ByVal Item kimi obyekt kimi, Boolean kimi ləğv edin) 'UpdatebyExtendoffice20180523 Dim xAddressArr () As xarakterli olaraq Dim xAddress String Dim xRecipient kimi qəbul edən Dim xPrompt String Dim xYesNo As Integer Dim xDictionary As Scripting.Dictionary Error Resume Next Set xDictionary = Yeni Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3 @ 126.com") i = LBound (xAddressArr) üçün UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i Hər bir xRecipient üçün Item.Recipients xRecipient.Type = olTo Əgər xDictionary.Exists (xRecipient.Address) Sonra xDictionary.Remove xRecipient.Address Son Əgər Əgər xDictionary.Count = 0 Sonra GoTo L1 i = 0 xDictionary.Count - 1 xAddress = "" Sonra xAddress = xDictionary.Keys (i) Else xAddress = xAddress + "; & xDictionaryKeys (i) End if Next i xPrompt =" Bunu göndərmək üçün: "& xAddress &" Mail göndərmək istədiyinizə əminsinizmi? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools Outlook") Əgər xYesNo = vbNo Sonra Cancel = True L1: Set xRecipient = Heç bir şey xDictionary = Nothing End Sub

1 göndərməzdən əvvəl doc alıcının ünvanını yoxlayın

Kodda dəyişə bilərsiniz ("example1@126.com", "example2@126.com", "example3@126.com") lazım olan real alıcılara.

3. Bundan sonra da Proqramlar üçün Microsoft Visual Basic pəncərə basın Tools > References. Check Microsoft Scripting Runtime onay kutusu References-Project1 dialoq.

2 göndərməzdən əvvəl doc alıcının ünvanını yoxlayın doc arrow sağ 3 göndərməzdən əvvəl doc alıcının ünvanını yoxlayın

4. klik OK və kodu saxlaya bilərsiniz.

E-poçt göndərərkən müəyyən edilmiş alıcılar Edəcəyinizdə görünməzsə, bir e-poçt göndərmək üçün xatırlatmaq üçün bir dialoq çıxacaq.
4 göndərməzdən əvvəl doc alıcının ünvanını yoxlayın

Yuxarıdakı kodla yalnız e-poçt ünvanlarını yoxlayın Kənar sahəyə daxil olmağı planlaşdırırıq Kənar, CCBCC sahələrdən istifadə edə bilərsiniz.

VBA: Göndərmədən əvvəl Alıcı ünvanını To / CC / BCC sahələrində yoxlayın

Private Sub Application_ItemSend (ByVal Item kimi obyekt kimi, Boolean kimi ləğv edin) 'UpdatebyExtendoffice20180523 Dim xRecipients kimi Outlook.Recipients Dim xRecipient kimi Outlook.Recipient Dim xPos As Integer Dim xYesNo As Integer Dim xPrompt As String Dim xAddress kimi String On Error Resume Next If Item. XDesign = "example1@gmail.com" Hər xRecipient üçün xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Əgər xPos = 0 Sonra xPrompt = "Siz göndərdiyiniz bu "& xAddress &" ünvanına göndərin. xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") xYesNo = vbNo Sonra Cancel = True End Əgər növbəti xRecipient End Sub

Bu kodla, yoxlamaq lazım deyil Microsoft Scripting Runtime onay qutusu, yalnız birbaşa kodunu qüvvəyə qoyun.



Outlook üçün Kutools

100, 2010, 2013, 2016 və 2019 üçün 365 Ətraflı funksiyaları

201812 pankart üçün küçə görünüşü üçün ekran shot kutools

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 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.