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

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

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.

¡Disfruta ahora de la versión gratuita de Kutools para Outlook, que incluye más de 100 funciones, y más de 70 funciones son gratuitas de por vida!

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:

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.

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.)

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.

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.

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

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.

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

📧 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.

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

Lista de características de Kutools para Outlook Descargar ahora Ir a Comprar

🚀 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

Acerca del paquete ⬇ Descarga el paquete 💳 Compra el paquete