Outlook: Cómo imprimir correos electrónicos sin imágenes
Generalmente, al imprimir un correo electrónico en Outlook, las imágenes también se imprimen. Pero a veces, solo deseas imprimir el texto sin las imágenes. Sin embargo, en Outlook no hay una función integrada que pueda hacer esto. Este tutorial proporciona un código VBA que imprimirá el correo electrónico sin imágenes a través de Word de inmediato. O si tu computadora no tiene impresora, el código VBA exportará primero el correo electrónico como un PDF sin imágenes, y luego podrás imprimir el PDF cuando la impresora esté disponible.
VBA para imprimir correos electrónicos sin imágenes
VBA para imprimir correos electrónicos sin imágenes
1. Selecciona un correo electrónico que desees imprimir solo con texto, luego presiona las teclas Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo para crear un nuevo módulo en blanco, luego copia y pega el siguiente código en el módulo.
VBA: exportar correo electrónico sin imágenes
Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
Dim xMail As Outlook.MailItem
Dim xFileName As String, xSubject As String
Dim xWord As Word.Application
Dim xWordDoc As Word.Document
Dim xInlineShape As Word.InlineShape
Dim InvalidArr
On Error Resume Next
If Application.ActiveWindow.Class = olInspector Then
Set xMail = ActiveInspector.CurrentItem
ElseIf Application.ActiveWindow.Class = olExplorer Then
Set xMail = ActiveExplorer.Selection.Item(1)
End If
InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
xSubject = xMail.Subject
For i = 0 To UBound(InvalidArr)
xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
Next i
xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
xMail.SaveAs xFileName, olDoc
Set xWord = CreateObject("Word.Application")
xWord.Visible = False
Set xWordDoc = xWord.Documents.Open(xFileName)
For Each xInlineShape In xWordDoc.InlineShapes
xInlineShape.Delete
Next
xWordDoc.PrintOut
xWordDoc.Close
xWord.Quit
Kill xFileName
End Sub
3. Haz clic en Herramientas > Referencias para abrir el cuadro de diálogo Referencias – Proyecto 1, marca la casilla de verificación de la Biblioteca de objetos de Microsoft Word 16.0. Haz clic en Aceptar.
4-1. Mantén el cursor dentro del código y presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar el código; luego, el correo electrónico sin imágenes se imprimirá de inmediato a través de Word. Pero si tu computadora no tiene una impresora, sigue el Paso 4.
4-2. Cuando tu computadora no tiene una impresora, después de presionar la tecla F5 o hacer clic en el botón Ejecutar para ejecutar el código, aparecerá un cuadro de diálogo para elegir una carpeta donde colocar el archivo PDF y nombrar el archivo PDF. Haz clic en Guardar.
Ahora el correo electrónico se ha exportado como un PDF sin imágenes. Abre el archivo PDF, haz clic derecho y selecciona Imprimir para imprimir el correo electrónico.
Consejo: Si deseas guardar en masa los correos electrónicos seleccionados como PDF (u otros formatos como Word, CSV, Excel, Txt, HTML) con imágenes, encabezados, cuerpos, CC, la función Guardado Masivo de Kutools para Outlook puede ayudarte, y solo requiere 3 pasos.
1. Selecciona los correos electrónicos.
2. Haz clic en Kutools > Guardado Masivo.
3. Elige una ubicación y marca los formatos de archivo que deseas, haz clic en Aceptar.
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
Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.
📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...
📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar 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 en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan emails importantes / Minimizar Outlook en vez de cerrar...
👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.
🚀 Descarga con un solo clic — Consigue todos los complementos para Office
Muy recomendado: Kutools para Office (5 en1)
Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.
- ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
- 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
- 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint