Salt la conținutul principal

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

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

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


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

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

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

2. Dublu click Această sesiune Outlook din Project1 pentru a deschide editorul de cod, copiați și lipiți mai jos codul în editor.

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

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 verifica adresa destinatarului înainte de a trimite 1

În cod, puteți schimba ("""""") către destinatarii reali de care aveți nevoie.

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

doc verifica adresa destinatarului înainte de a trimite 2 doc săgeată dreapta doc verifica 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 trimiteți e-mailuri, va apărea o casetă de dialog pentru a vă reaminti dacă trebuie să trimiteți e-mailul.
doc verifica adresa destinatarului înainte de a trimite 4

Cu codul de mai sus, verifică numai adresele de e-mail din La câmp, dacă doriți să faceți check-in La, CC și CCA câmpuri, puteți utiliza codul de mai jos.

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

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

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


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

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