Skip to main content

¿Cómo imprimir todos los archivos adjuntos en uno/varios correos electrónicos en Outlook?

Author: Kelly Last Modified: 2025-06-03

Como sabes, al hacer clic en Archivo > Imprimir en Microsoft Outlook, solo se imprimirá el contenido del correo electrónico, como el encabezado y el cuerpo, pero no los archivos adjuntos. Aquí te mostraremos cómo imprimir fácilmente todos los archivos adjuntos de un correo electrónico seleccionado en Microsoft Outlook.


Imprimir todos los archivos adjuntos en un mensaje de correo electrónico uno por uno

Microsoft Outlook nos ofrece la función de Impresión Rápida, que puede ayudarte a imprimir los archivos adjuntos en un mensaje de correo electrónico uno por uno.

1. Selecciona el mensaje de correo electrónico cuyos archivos adjuntos imprimirás más tarde.

2. Haz clic en un archivo adjunto en este correo electrónico.

steps of printing all attachments in one email message one by one

3. Haz clic en el botón de Impresión Rápida en el grupo Acciones de la pestaña Adjuntos.

steps of printing all attachments in one email message one by one
Nota: las Herramientas de archivos adjuntos no se activarán hasta que hagas clic en los archivos adjuntos en los correos electrónicos.

4. Aparecerá un cuadro de diálogo Abrir archivo adjunto del correo, y haz clic en el botón Abrir .

steps of printing all attachments in one email message one by one

Ten en cuenta que este paso abrirá el archivo adjunto seleccionado e imprimirá este archivo adjunto seleccionado al mismo tiempo.

Para imprimir otros archivos adjuntos en este correo electrónico, repite los pasos del 2 al 4.

Guardar/exportar rápidamente todos los archivos adjuntos de varios correos electrónicos en Outlook

Normalmente podemos guardar archivos adjuntos de un correo electrónico activando las Herramientas de archivos adjuntos y aplicando la función Guardar todos los archivos adjuntos en Outlook. Pero, ¿qué pasa si guardamos archivos adjuntos de varios correos electrónicos o de toda la carpeta de correo en Outlook? Prueba la función Guardar todo (Archivos adjuntos) de Kutools para Outlook.

save attachments in multiple emails kto9

Impresión por lotes de todos los archivos adjuntos en un mensaje de correo electrónico

Si hay muchos archivos adjuntos en un mensaje de correo electrónico, será muy lento imprimirlos uno por uno. El siguiente método te guiará a través de la impresión por lotes de todos los archivos adjuntos en un mensaje de correo electrónico seleccionado fácilmente.

1. Selecciona el mensaje de correo electrónico cuyos archivos adjuntos imprimirás más tarde.

2. En Outlook 2010 o versiones posteriores, haz clic en Archivo > Imprimir > Opciones de impresión. Ver la siguiente captura de pantalla:

steps of batch printing all attachments in one email message

3. En el cuadro de diálogo Imprimir, marca la opción Imprimir archivos adjuntos. Los archivos adjuntos se imprimirán solo en la impresora predeterminada en la sección Opciones de impresión.

steps of batch printing all attachments in one email message

4. Haz clic en el botón Imprimir.

5. En el cuadro de diálogo Abrir archivo adjunto del correo emergente, haz clic en el botón Abrir para continuar. (Nota: Este cuadro de diálogo aparecerá por separado para cada archivo adjunto.)

steps of batch printing all attachments in one email message

Ahora todos los archivos adjuntos en este mensaje de correo electrónico seleccionado se imprimirán de una vez.


Impresión por lotes de todos los archivos adjuntos e imágenes en varios correos electrónicos seleccionados

Para imprimir todos los archivos adjuntos en varios correos electrónicos, así como todas las imágenes en el cuerpo del mensaje en Outlook, sigue los siguientes pasos para aplicar un código VBA.

1. En la lista de correos, mantén presionadas las teclas Ctrl o Shift para seleccionar varios correos electrónicos cuyos archivos adjuntos imprimirás.

2. Presiona Alt + F11 juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Herramientas > Referencias. Luego marca la opción Microsoft Scripting Runtime como se muestra a continuación. Una vez terminado, haz clic en Aceptar.

steps of batch printing all attachments and pictures in multiple selected emails

4. Haz clic en Insertar > Módulo, y luego pega el siguiente código VBA en la nueva ventana del módulo.

VBA: Imprimir todos los archivos adjuntos en múltiples correos electrónicos de Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar este código VBA. Ahora verás que todos los archivos adjuntos en los correos electrónicos seleccionados y las imágenes en el cuerpo del mensaje se imprimen.

Nota:

  • Cada imagen mostrará un cuadro de diálogo emergente para pedirte confirmación de impresión. Mientras tanto, otros tipos de archivos se imprimirán directamente.
  • Si hay imágenes en la firma de un correo electrónico, también mostrarán cuadros de diálogo emergentes.
  • Si obtienes el error Las macros en este proyecto están deshabilitadas, consulta este tutorial: ¿Cómo habilitar y deshabilitar macros en Outlook?

Impresión por lotes de todos los archivos adjuntos en varios correos electrónicos seleccionados excepto las imágenes en el cuerpo

Para imprimir solo los archivos adjuntos en varios correos electrónicos, pero no las imágenes en el cuerpo del mensaje en Outlook, sigue los siguientes pasos para aplicar un código VBA.

1. En la lista de correos, mantén presionadas las teclas Ctrl o Shift para seleccionar varios correos electrónicos cuyos archivos adjuntos imprimirás.

2. Presiona Alt + F11 juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Herramientas > Referencias. Luego marca la opción Microsoft Scripting Runtime como se muestra a continuación. Una vez terminado, haz clic en Aceptar.

the steps of batch printing all attachments in multiple selected emails except pictures in the body

4. Haz clic en Insertar > Módulo, y luego pega el siguiente código VBA en la nueva ventana del módulo.

VBA: Imprimir todos los archivos adjuntos en múltiples correos electrónicos de Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar este código VBA. Ahora verás que todos los archivos adjuntos en los correos electrónicos seleccionados se imprimen.

Nota:

  • Cada imagen adjunta mostrará un cuadro de diálogo emergente para pedirte confirmación de impresión. Mientras tanto, otros tipos de archivos se imprimirán directamente.
  • Las imágenes en el cuerpo del mensaje no se imprimirán.
  • Si obtienes el error Las macros en este proyecto están deshabilitadas, consulta este tutorial: ¿Cómo habilitar y deshabilitar macros en Outlook?

Demostración: imprimir uno o todos los archivos adjuntos en un correo electrónico de Outlook

 

Las mejores herramientas de productividad para Office

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

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz 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 emails.

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

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos 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 en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos 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 contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

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

kutools for outlook features1 kutools for outlook features2