¿Cómo evitar enviar adjuntos a los destinatarios CC y CCO al redactar un correo en Outlook?
Como todos sabemos, todos los destinatarios en los campos “Para”, “CC” o “CCO” recibirán los adjuntos al enviar correos con archivos adjuntos. Sin embargo, algunos usuarios desean enviar los adjuntos solo a los destinatarios en el campo “Para”, mientras que los destinatarios en “CC” y “CCO” solo reciben el mensaje sin los adjuntos. ¿Cómo podrías resolver esta tarea en Outlook?
Evitar enviar adjuntos a los destinatarios CC y CCO al redactar un correo con código VBA
Evitar enviar adjuntos a los destinatarios CC y CCO al redactar un correo con código VBA
De hecho, Outlook no ofrece una opción para manejar esta tarea, pero el siguiente código VBA puede ayudarte; por favor, sigue estos pasos:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic en ThisOutlookSession en el panel Project1(VbaProject.OTM) para abrir el modo, y luego copia y pega el siguiente código en el módulo en blanco.
Código VBA: Evitar enviar adjuntos a los destinatarios CC y CCO:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As Outlook.MailItem
Dim xNewMail As Outlook.MailItem
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
With xNewMail
.CC = xMailItem.CC
.BCC = xMailItem.BCC
.Subject = xMailItem.Subject
.HTMLBody = xMailItem.HTMLBody
.Send
End With
xMailItem.CC = ""
xMailItem.BCC = ""
End Sub
3. Luego guarda y cierra la ventana del código.
4. A partir de ahora, al enviar un correo con adjuntos, solo los destinatarios en el campo Para podrán recibir los adjuntos, y los destinatarios en CC y CCO solo recibirán el mensaje sin los adjuntos.
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!
📧 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!
