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
Î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.
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.
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 Pro: Salvaț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.