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

En algunas ocasiones, podrías olvidarte de agregar algunos destinatarios importantes en los campos Para, CC o CCO mientras envías correos electrónicos a través de Outlook. Aquí te presento un método para verificar si se han agregado las direcciones de correo electrónico específicas antes de enviar a través de Outlook.

Verificar direcciones antes de enviar con código VBA

Verificar direcciones antes de enviar con código VBA

Aquí tengo dos códigos que pueden ayudarte a resolver esta tarea; puedes elegir cualquiera según tus necesidades.

1. Presiona Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz doble clic en ThisOutlookSession desde el panel Project1 para abrir el editor de código, copia y pega el siguiente código en el editor.

VBA: verificar 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("example1@126.com", "example2@126.com", "example3@126.com")
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

En el código, puedes cambiar ("example1@126.com", "example2@126.com", "example3@126.com") por los destinatarios reales que necesitas.

3. Luego, también en la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Herramientas > Referencias. Marca la casilla Microsoft Scripting Runtime en el cuadro de diálogo Referencias-Proyecto1.

4. Haz clic en Aceptar y guarda 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 recordarte si deseas enviar el correo.

Con el código anterior, solo verifica las direcciones de correo electrónico en el campo Para. Si deseas verificar en los campos Para, CC y CCO, puedes usar el siguiente código.

VBA: verificar la dirección del destinatario en los campos Para/CC/CCO 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 = "example1@gmail.com"
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 marcar la casilla Microsoft Scripting Runtime, simplemente guarda directamente el código para que surta efecto.

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.

Esta función admite:

• Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
• Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
• Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
• Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
• Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
• Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

• Respuestas inteligentes de correo electrónico
• Contenido optimizado
• Borradores basados en palabras clave
• Extensión inteligente de contenido
• Resumen de correos electrónicos
• Traducción multilingüe

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!

---

Las mejores herramientas de productividad para Office

Últimas noticias: ¡Kutools para Outlook lanza una versión gratuita!

¡Descubre el nuevo Kutools para Outlook con más de100 funciones increíbles! ¡Haz clic para descargarlo ahora!

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, como responder, resumir, optimizar, ampliar, traducir y redactar mensajes.

📧 Automatización de Email: Respuesta automática (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con varios destinatarios en mensajes individuales ...

📨 Gestión de Email: Recuperar correos electrónicos / Bloquear correos sospechosos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas ...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir ...

🌟 Magia de la Interfaz: 😊Más emojis atractivos y geniales / Recibe avisos cuando lleguen emails importantes / Minimiza Outlook en vez de cerrarlo ...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos Anti-Phishing / 🕘Mostrar la zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar en lote contactos de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños ...

Utiliza Kutools en tu idioma preferido; ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!

Desbloquea Kutools para Outlook al instante con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!

Lista de funciones de Kutools para Outlook Descargar ahora Ir a Comprar