Microsoft Outlook nos proporciona Impresión rápida , que puede ayudarlo a imprimir archivos adjuntos en un mensaje de correo electrónico uno por uno.

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

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

3. Haga clic en Impresión rápida botón en el Acciones grupo en el Archivos adjuntos .

Nota la Herramientas de adjunto no se activará hasta que haga clic en los archivos adjuntos en los correos electrónicos.

4. Aparece un cuadro de diálogo Abrir archivo adjunto de correo y, por favor, haga clic en el Abierto del botón.

Tenga 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, repita del Paso 2 al Paso 4.

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

Normalmente podemos guardar archivos adjuntos de un correo electrónico activando el Herramientas de adjunto y aplicando el Guardar todos los archivos adjuntos característica en Outlook. Pero, ¿qué sucede si guarda archivos adjuntos de varios correos electrónicos o de toda la carpeta de correo en Outlook? Prueba Kutools para Outlook Guardar todo (Adjuntos) característica.

Si hay muchos archivos adjuntos en un mensaje de correo electrónico, llevará mucho tiempo imprimirlos uno por uno. Y el siguiente método lo 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. Seleccione el mensaje de correo electrónico cuyos archivos adjuntos imprimirá más tarde.

2. En Outlook 2010 o versiones posteriores, haga clic en el Archive > Imprimir > Opciones de impresión. Vea la siguiente captura de pantalla:

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

4. Haga clic en Imprimir del botón.

5. En el cuadro de diálogo emergente Abrir archivo adjunto de correo, haga clic en el Abierto botón para seguir adelante. (Note: Este cuadro de diálogo aparecerá para cada archivo adjunto por separado).

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

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

1. En la lista de correo, mantenga Ctrl or Shift teclas para seleccionar varios correos electrónicos cuyos archivos adjuntos imprimirá.

2. prensa otro + F11 teclas juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Herramientas > Referencias. Y luego revisa el Tiempo de ejecución de secuencias de comandos de Microsoft opción como se muestra a continuación. Una vez terminado, haga clic en OK.

4. Hacer clic recuadro > Móduloy luego pegue debajo del código VBA en la nueva ventana del módulo.

VBA: imprima todos los archivos adjuntos en varios 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. Prensa F5 o haga clic en el Ejecutar botón para ejecutar este código VBA. Ahora verá que se imprimen todos los archivos adjuntos en los correos electrónicos seleccionados y las imágenes en el cuerpo del mensaje.

Nota:

• Cada imagen abrirá un cuadro de diálogo emergente para pedirle confirmación de impresión. Mientras que otros tipos de archivos se imprimirán directamente.
• Si hay imágenes en una firma de correo electrónico, también aparecerán cuadros de diálogo emergentes.
• Si lo consigues Las macros de este proyecto están deshabilitadas. error, consulte este tutorial: ¿Cómo habilitar y deshabilitar macros en Outlook?

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

1. En la lista de correo, mantenga Ctrl or Shift teclas para seleccionar varios correos electrónicos cuyos archivos adjuntos imprimirá.

2. prensa otro + F11 teclas juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Herramientas > Referencias. Y luego revisa el Tiempo de ejecución de secuencias de comandos de Microsoft opción como se muestra a continuación. Una vez terminado, haga clic en OK.

4. Hacer clic recuadro > Móduloy luego pegue debajo del código VBA en la nueva ventana del módulo.

VBA: imprima todos los archivos adjuntos en varios 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. Prensa F5 o haga clic en el Ejecutar botón para ejecutar este código VBA. Ahora verá que se imprimen todos los archivos adjuntos en los correos electrónicos seleccionados.

Nota:

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