¿Cómo imprimir todos los archivos adjuntos en uno/varios correos electrónicos en Outlook?
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
- Impresión por lotes de todos los archivos adjuntos en un mensaje de correo electrónico
- Impresión por lotes de todos los archivos adjuntos e imágenes en varios correos electrónicos seleccionados
- Impresión por lotes de todos los archivos adjuntos en varios correos electrónicos seleccionados excepto las imágenes en el cuerpo
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.

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

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 .

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.

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

