¿Cómo imprimir solo los adjuntos de un correo o de correos seleccionados en Outlook?

Author: Sun Last Modified: 2025-08-06

En Outlook, puedes imprimir los correos electrónicos, pero ¿has impreso solo los adjuntos de un correo o de correos seleccionados en Outlook? En este artículo, te presento algunos trucos para resolver esta tarea.

Imprimir solo los adjuntos de un correo con la función Imprimir Rápido

Imprimir solo los adjuntos de correos seleccionados con VBA

Imprimir solo los adjuntos de un correo con la función Imprimir Rápido

Para imprimir solo los adjuntos sin el cuerpo del correo, puedes usar la función Imprimir Rápido.

1. En la ventana del mensaje, haz clic derecho en el adjunto que deseas imprimir y selecciona "Imprimir Rápido" desde el menú contextual.
doc print attachment 1

2. Luego haz clic en "Guardar" > "Guardar" para guardar el archivo adjunto en una ubicación.
doc print attachment 2
doc print attachment 3

3. Ahora ve a la ubicación donde colocaste el archivo adjunto y abre el archivo para imprimirlo como de costumbre.

Imprimir solo los adjuntos de correos seleccionados con VBA

Si deseas imprimir los adjuntos de correos seleccionados, puedes usar código VBA.

1. Selecciona los correos de los cuales deseas imprimir los adjuntos, presiona las teclas "Alt" + "F11" para habilitar la ventana "Microsoft Visual Basic para Aplicaciones".

2. Haz doble clic en "ThisOutlookSession" en el panel "Project1", copia y pega el siguiente código en el script.

VBA: Imprimir adjuntos de correos seleccionados

Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
    xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count = 0 Then Exit Sub
        Set xAttachments = xMailItem.Attachments
        For Each xAttachment In xAttachments
            xFilePath = xTmpFldPath & "\" & xAttachment.FileName
            xAttachment.SaveAsFile (xFilePath)
            Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
            xTempFolderItem.InvokeVerbEx ("print")
        Next
    End If
Next

'If xFSO.FolderExists(xTmpFldPath) Then
'    xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub

doc print attachment 4

3. Luego haz clic en "Herramientas" > "Referencias", y en el cuadro de diálogo "Referencias", marca la casilla "Microsoft Scripting Runtime".
doc print attachment 5 doc print attachment 6

4. Haz clic en "Aceptar", luego presiona la tecla "F5" para imprimir todos los adjuntos de los correos seleccionados en masa.

Nota: Si el adjunto es una imagen, aparecerá primero un cuadro de diálogo "Imprimir imágenes", haz clic en "Imprimir" para ir al cuadro de diálogo "Guardar salida de impresión como".
doc print attachment 7

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!