¿Cómo verificar las direcciones de los destinatarios antes de enviar a través de Outlook?

En algunas ocasiones, es posible que no agregue algunos destinatarios importantes en los campos Para, CC o CCO mientras envía correos electrónicos a través de Outlook. Aquí, puedo presentar un método para verificar si las direcciones de correo electrónico específicas se han agregado antes de enviarlas a través de Outlook.

Verifique las direcciones antes de enviar con el código VBA

Verifique las direcciones antes de enviar con el código VBA

Aquí tengo dos códigos que pueden ayudarte a resolver este trabajo, puedes elegir cualquiera que necesites.

1. Prensa Alt + F11keys para habilitar Microsoft Visual Basic para aplicaciones ventana.

2. Haga doble clic Esta sesión de Outlook en Proyecto1 panel para abrir el editor de código, copie y pegue el siguiente código en el editor.

VBA: verifique la dirección del destinatario en el campo Para antes de enviar

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 verifique la dirección del destinatario antes de enviar 1

En el código, puede cambiar ("""""") a los destinatarios reales que necesita.

3. Luego también en el Microsoft Visual Basic para aplicaciones ventana, haga clic Herramientas > Referencias. Comprobar Tiempo de ejecución de secuencias de comandos de Microsoft casilla de verificación en Referencias-Proyecto1 diálogo.

doc verifique la dirección del destinatario antes de enviar 2

doc verifique la dirección del destinatario antes de enviar 3

4. Hacer clic en OK y guarde el código.

Ahora, si los destinatarios especificados no aparecen en el campo Para al enviar correos electrónicos, aparecerá un cuadro de diálogo para recordarle si debe enviar el correo electrónico.
doc verifique la dirección del destinatario antes de enviar 4

Con el código anterior, solo verifica las direcciones de correo electrónico en A campo, si desea registrarse A, CC y BCC campos, puede utilizar el siguiente código.

VBA: verifique la dirección del destinatario en los campos Para / CC / BCC antes de enviar

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

Con este código, no es necesario verificar Tiempo de ejecución de secuencias de comandos de Microsoft casilla de verificación, simplemente guarde el código directamente para que surta efecto.