¿Cómo recibir una advertencia al enviar un correo electrónico a un dominio externo en Outlook?
Mientras usa Outlook, ¿cómo puede evitar el envío accidental de correos electrónicos a destinatarios fuera de su empresa? En realidad, puede mostrar un cuadro de advertencia al enviar un correo electrónico a un dominio externo en Outlook. Este artículo presentará un método VBA para lograrlo.
Recibe una advertencia al enviar un correo electrónico a un dominio externo con código VBA
Recibe una advertencia al enviar un correo electrónico a un dominio externo con código VBA
El siguiente código VBA puede ayudarlo a recibir una advertencia al enviar un correo electrónico a un dominio externo en Outlook. Haz lo siguiente.
1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook para abrir el ThisOutlookSession (Código) ventana, y luego copie debajo del código VBA en la ventana. Ver captura de pantalla:
Código de VBA: recibe una advertencia al enviar un correo electrónico a un dominio externo
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
Note: En el código, "@ addin99.com”Es el dominio de correo electrónico interno al que enviará correos electrónicos. Cámbielo cuando lo necesite.
A partir de ahora, al hacer clic en el botón Enviar para enviar correos electrónicos al dominio de correo electrónico externo (no al dominio de correo electrónico interno que especificó en el código VBA), aparecerá un cuadro de advertencia como se muestra a continuación.
Artículos relacionados:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!