Cum să primiți avertisment atunci când trimiteți e-mail către un domeniu extern în Outlook?
În timp ce utilizați Outlook, cum puteți preveni trimiterea de e-mail-uri accidental către destinatari din afara companiei dvs. De fapt, puteți afișa caseta de avertizare atunci când trimiteți e-mail către un domeniu extern în Outlook. Acest articol va introduce o metodă VBA pentru a o realiza.
Obțineți avertisment atunci când trimiteți un e-mail către un domeniu extern cu cod VBA
Obțineți avertisment atunci când trimiteți un e-mail către un domeniu extern cu cod VBA
Următorul cod VBA vă poate ajuta să primiți avertisment atunci când trimiteți e-mail către un domeniu extern în Outlook. Vă rugăm să faceți următoarele.
1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook pentru a deschide ThisOutlookSession (Cod) fereastră, apoi copiați mai jos codul VBA în fereastră. Vedeți captura de ecran:
Cod VBA: primiți avertisment atunci când trimiteți e-mail către un domeniu extern
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Update by Extendoffice 20180504
Dim xMailItem As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim i As Long
Dim xRecipientAddress As String
Dim xPrompt As String
Dim xYesNo As Integer
Dim xPos As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
xRecipientAddress = xRecipients.Item(i).Address
xPos = InStrRev(LCase(xRecipientAddress), "@addin99.com")
If xPos <= 0 Then Exit For
Cancel = False
Next
If InStrRev(LCase(xRecipientAddress), "@addin99.com") > 0 Then Exit Sub
xPrompt = "Are you sure to send this email to outside your company? "
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End Sub
notițe: În cod, „@ addin99.com”Este domeniul de e-mail intern către care veți trimite e-mailuri. Vă rugăm să îl modificați după cum aveți nevoie.
De acum înainte, când faceți clic pe butonul Trimiteți pentru a trimite e-mailuri către un domeniu de e-mail extern (nu domeniul de e-mail intern pe care l-ați specificat în codul VBA), va apărea o casetă de avertizare, așa cum este prezentată mai jos.
Legate de articole:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!