Outlook: Cómo imprimir un correo electrónico sin imágenes

Por lo general, al imprimir un correo en Outlook se incluyen también las imágenes. Sin embargo, a veces solo desea imprimir el texto sin ellas, y Outlook no ofrece ninguna función integrada para hacerlo. Este tutorial le proporciona un código VBA que imprime inmediatamente el mensaje sin imágenes mediante Word. Alternativamente, si su equipo no dispone de impresora, el mismo código VBA exportará primero el correo como PDF sin imágenes, para que pueda imprimirlo más adelante cuando la impresora esté disponible.

VBA para imprimir un correo sin imágenes

---

VBA para imprimir un correo sin imágenes

1. Seleccione un correo que desee imprimir solo en texto y pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo para crear un nuevo módulo en blanco; luego, copie y pegue el siguiente código en el módulo.

VBA: exportar correo 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. Haga clic en Herramientas > Referencias para abrir el cuadro de diálogo Referencias – Proyecto 1; active la casilla de verificación Microsoft Word 16,0 Object Library y, a continuación, haga clic en Aceptar.

 

4-1. Mantenga el cursor dentro del código y pulse la tecla F5 o haga clic en el botón Ejecutar para ejecutar el código; entonces, el correo sin imágenes se imprimirá inmediatamente a través de Word. Pero si su equipo no dispone de impresora, siga el paso 4.

4-2. Cuando su equipo no disponga de impresora, tras pulsar la tecla F5 o hacer clic en el botón Ejecutar para ejecutar el código, aparecerá un cuadro de diálogo que le permitirá elegir una carpeta donde guardar los archivos PDF y asignarles un nombre. Haga clic en Guardar.

 

Ahora el correo electrónico se ha exportado como PDF sin imágenes. Abra el archivo PDF y haga clic con el botón derecho para seleccionar Imprimir e imprimir el correo.

Consejo: Si desea guardar en lote los correos seleccionados como PDF (o Word, CSV, Excel, TXT, archivo HTML) con imágenes, encabezados, cuerpos y copias ocultas (CCO), la función Guardado masivo de Kutools para Outlook puede ayudarle; ¡solo necesita 3 sencillos pasos!

1. Seleccione los correos electrónicos que desee utilizar.

2. Haga clic en Kutools > Guardado masivo.

3. Elija una ubicación y seleccione el o los tipos de archivo que desee. Haga clic en Aceptar.