¿Cómo bloquear los correos electrónicos salientes dirigidos a una dirección específica en Outlook?

AutorXiaoyang Fecha de modificación2024-09-18

En general, Outlook envía correos electrónicos a cualquier dirección de correo electrónico válida y no permite bloquear el envío a una dirección específica. Sin embargo, en ocasiones puede que necesites impedir que se envíen mensajes a una dirección de correo concreta en Outlook. En ese caso, este tutorial te presentará un código VBA para resolver esta tarea.

Bloquear correos electrónicos salientes a una dirección específica con código VBA

El siguiente código VBA le hará un favor; siga estos pasos:

1. Inicie Outlook y, a continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. A continuación, haga doble clic en ThisOutlookSession desde el panel Proyecto - Proyecto1 y, después, copie y pegue el siguiente código en la ventana de código en blanco:

Código VBA: Bloquear correos electrónicos salientes a una dirección específica

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub

Nota: En el código anterior, debe sustituir Dirección de correo electrónico por la suya propia.

doc-block-email-to-an-address-1

3. A continuación, guarda y cierra esta ventana de código. Ahora, al enviar un correo electrónico, si se detecta la dirección de correo electrónico específica en la lista de destinatarios, aparecerá un mensaje emergente como el que se muestra en la siguiente captura de pantalla. Haz clic en No y la dirección de correo electrónico específica se eliminará inmediatamente.

doc-block-email-to-an-address-2

4.Tras enviar el correo, puede comprobar sus destinatarios en la carpeta Elementos enviados, donde se ha excluido la Dirección de correo electrónico concreta, como se muestra en la captura de pantalla:

doc-block-email-to-an-address-3

Asistente de correo con IA en Outlook: respuestas más inteligentes y comunicación más clara (¡magia con un solo clic!)

Simplifique sus tareas diarias en Outlook con el Asistente de correo con IA de Kutools para Outlook. Esta potente herramienta aprende de sus correos anteriores para ofrecerle respuestas inteligentes y precisas, optimizar el contenido de sus mensajes y ayudarle a redactarlos y perfeccionarlos sin esfuerzo.

Esta función incluye:

Respuestas inteligentes: obtenga respuestas elaboradas a partir de sus conversaciones anteriores: personalizadas, precisas y listas para usar.
Contenido mejorado: refine automáticamente el texto de sus correos electrónicos para lograr mayor claridad e impacto.
Redacción sin esfuerzo: proporcione solo palabras clave y deje que la IA haga el resto, con múltiples estilos de escritura.
Extensiones inteligentes: potencie sus ideas con sugerencias adaptadas al contexto.
Resumen: obtenga al instante resúmenes concisos de correos electrónicos extensos.
Alcance global: traduzca sus correos electrónicos a cualquier idioma con facilidad.

Esta función incluye:

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

¡No espere más—descargue ahora el Asistente de correo con IA y disfrute!

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!

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

📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...

📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…

📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...

🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…

👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...

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

Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

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

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)

Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!

✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Acerca del Conjunto ⬇ Descargar el Conjunto 💳 Comprar el Conjunto