Cookie-urile ne ajuta sa oferim serviciile noastre. Prin utilizarea serviciilor noastre, sunteți de acord cu utilizarea de cookie-uri.
Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum să verificați adresele destinatarului înainte de a trimite prin Outlook?

În anumite momente, este posibil să pierdeți adăugarea unor destinatari importanți în câmpurile To, CC sau BCC în timp ce trimiteți e-mailuri prin Outlook. Aici pot introduce o metodă pentru a verifica dacă anumite adrese de e-mail au fost adăugate înainte de trimiterea prin Outlook.

Verificați adresele înainte de a le trimite cu codul VBA

Răspundeți tuturor excludeți-mă pe mine în Outlook

Când utilizăm funcția Răspundeți tuturor în Outlook, este posibil să adăugăm și conturile noastre în câmpul Către dacă e-mailurile pe care le primiți conțin încă două conturi. În acest caz, vă recomandăm să eliminați conturile din câmpurile To și CC. Ktools pentru Outlook's Numele meu este vă poate oferi o favoare în rezolvarea rapidă a acestui loc de muncă. Doar nevoie de un singur clic, toate conturile Myslft din Outlook vor fi eliminate din câmpurile To și CC. Faceți clic pentru 45 zile gratuite de încercare!
raspunsul doc exclude cont
doc arrow dowm

răspunsul doc exclude contul 2
Kutools pentru Outlook: cu zeci de extensii Outlook accesibile, gratuite pentru a încerca fără limitări în zilele 45.

Verificați adresele înainte de a le trimite cu codul VBA

Aici am două coduri care vă pot ajuta să rezolvați acest loc de muncă, puteți alege pe oricine doriți.

1. presa Alt + F11 keys pentru a permite Microsoft Visual Basic pentru aplicații fereastră.

2. Dublu click ThisOutlookSession din Project1 pentru a deschide editorul de cod, copiați și inserați codul de mai jos în editor.

VBA: verificați adresa destinatarului în câmpul Către înainte de trimitere

Private Sub Application_ItemSend (Obiect ByVal ca obiect, Anulează ca boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () ca variantă Dim xAddress ca șir Dim xRecipient ca destinatar Dim xPrompt ca șir Dim xYesNo ca număr întreg Dim xDictionary Ca scripting.dictionary la eroare Reluare Următorul set xDictionary = Scripting.Net xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Pentru i = LBound (xAddressArr) Pentru UBound (xAddressArr) xDictionary.Add xAddressArr ), Adevărat Următorul i pentru fiecare xRecipient în item.Recipients Dacă xRecipient.Type = olTo apoi Dacă xDictionary.Exists (xRecipient.Address) Apoi xDictionary.Remove xRecipient.Address Sfârșit Dacă Next Dacă xDictionary.Count = 0 Atunci GoTo L1 Pentru i = 0 Pentru a xDictionary.Count - 1 Dacă xAddress = "" Apoi xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Sfârșit Dacă Next i xPrompt = "Nu trimiteți acest lucru la: "& xAddress &" Sunteți sigur că doriți să trimiteți e-mailul? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools pentru Outlook") Dacă xYesNo = vbNo apoi Cancel = Adevărat L1: Set xRecipient = Nimic set xDictionary = Nothing End Sub

doc verificați adresa destinatarului înainte de a trimite 1

În cod, poți schimba ("example1@126.com", "example2@126.com", "example3@126.com") la beneficiarii reali de care aveți nevoie.

3. Apoi, de asemenea, în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe unelte > Referinte. Verificați Microsoft Runtime pentru Scripting Microsoft în caseta de selectare Referințe-Project1 dialog.

doc verificați adresa destinatarului înainte de a trimite 2 doc arrow dreapta doc verificați adresa destinatarului înainte de a trimite 3

4. clic OK și salvați codul.

Acum, dacă destinatarii specificați nu apar în câmpul Către în timp ce trimit e-mailuri, va apărea o fereastră de dialog pentru a vă reaminti dacă doriți să trimiteți e-mailul.
doc verificați adresa destinatarului înainte de a trimite 4

Cu codul de mai sus, verificați doar adresele de e-mail din La câmp, dacă doriți să vă înregistrați La, CC și CCA câmpuri, puteți utiliza codul de mai jos.

VBA: verificați adresa destinatarului în câmpurile To / CC / BCC înainte de a trimite

Private Sub Application_ItemSend (Obiect ByVal ca obiect, Anulare ca boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients Ca Outlook.Recipients Dim xRecipient As Outlook.Recipient Dim xPos ca Integer Dim xYesNo ca Integer Dim xPrompt Ca Dimensiune String xAddress Ca String On Eroare Resume Urmatorul Daca Item. Clasa <> olMail Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Pentru fiecare xRecipient în xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Dacă xPos = 0 Apoi xPrompt = acest lucru la "& xAddress &". Sunteți sigur că doriți să-l trimiteți? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools pentru Outlook") Dacă xYesNo = vbNo apoi Cancel = True End Dacă Next xRecipient End Sub

Cu acest cod, nu trebuie să verificați Microsoft Runtime pentru Scripting Microsoft , salvați direct codul pentru a intra în vigoare.



Kutools pentru Outlook

Mai mult decât funcțiile avansate 100 pentru Outlook 2010, 2013, 2016, 2019 și 365

ecran shot kutools pentru outlook minuscule pentru banner 201812

Mai multe caracteristici | Descărcare gratuită | Doar $ 39.00 pentru sute de funcții

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.