¿Cómo imprimir solo los archivos adjuntos de un correo electrónico o de varios mensajes seleccionados en Outlook?

En Outlook puede imprimir mensajes, pero ¿ha impreso alguna vez únicamente los archivos adjuntos de un correo o de varios correos seleccionados? En este artículo le presento algunos trucos para llevar a cabo esta tarea con facilidad.

Imprimir únicamente los archivos adjuntos de un correo con Impresión rápida

Imprimir únicamente los archivos adjuntos de varios correos seleccionados con VBA

---

Imprimir únicamente los archivos adjuntos de un correo con Impresión rápida

Para imprimir solo los archivos adjuntos, sin el cuerpo del mensaje, utilice la función de Impresión rápida.

1. En la ventana del mensaje, haga clic con el botón derecho en el archivo adjunto que desea imprimir y elija «Impresión rápida» en el menú contextual.

2. A continuación, haga clic en «Guardar» > «Guardar» para guardar el archivo adjunto en la ubicación que desee.

3. Ahora vaya a la ubicación donde guardó el archivo adjunto, ábralo y procédalo a imprimir como de costumbre.

---

Imprimir únicamente los archivos adjuntos de varios correos seleccionados con VBA

Si desea imprimir los archivos adjuntos de varios correos seleccionados, puede hacerlo mediante código VBA.

1. Seleccione los correos cuyos archivos adjuntos desea imprimir y pulse las teclas «Alt» + «F11» para abrir la ventana de «Microsoft Visual Basic para Aplicaciones».

2. Haga doble clic en «ThisOutlookSession» en el panel «Project1» y copie y pegue el siguiente código en el script.

VBA: Imprimir archivos 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

3. A continuación, haga clic en «Herramientas» > «Referencias» y, en el cuadro de diálogo «Referencias», active la casilla «Microsoft Scripting Runtime».
  

4. Haga clic en «Aceptar» y, a continuación, pulse la tecla «F5» para imprimir todos los archivos adjuntos de los correos seleccionados de forma masiva.

Nota: Si el archivo adjunto es una imagen, primero aparecerá el cuadro de diálogo «Imprimir imágenes». Haga clic en «Imprimir» para acceder al cuadro de diálogo «Guardar resultado de impresión como».