Microsoft Outlook nous fournit Impression rapide , qui peut vous aider à imprimer les pièces jointes dans un e-mail une par une.

1. Sélectionnez l'e-mail dont vous imprimerez les pièces jointes ultérieurement.

2. Cliquez sur une pièce jointe dans cet e-mail.

3. Clique le Impression rapide bouton dans le Actions groupe sur le Pièces jointes languette.

Noter la Outils de fixation ne sera pas activé tant que vous n'aurez pas cliqué sur les pièces jointes dans les e-mails.

4. Une boîte de dialogue d'ouverture de pièce jointe apparaît, et veuillez cliquer sur le Ouvert .

Veuillez noter que cette étape ouvrira la pièce jointe sélectionnée et imprimera cette pièce jointe sélectionnée en même temps.

Pour imprimer d'autres pièces jointes dans cet e-mail, veuillez répéter les étapes 2 à 4.

Enregistrez / exportez rapidement toutes les pièces jointes de plusieurs e-mails dans Outlook

Normalement, nous pouvons enregistrer les pièces jointes d'un e-mail en activant le Outils de fixation et en appliquant le Enregistrer toutes les pièces jointes fonctionnalité dans Outlook. Mais que se passe-t-il si vous enregistrez les pièces jointes de plusieurs e-mails ou de l’ensemble du dossier de messagerie dans Outlook ? Essayez Kutools pour Outlook Enregistrer tout (Pièces jointes).

S'il y a de nombreuses pièces jointes dans le même message électronique, il faudra beaucoup de temps pour les imprimer une par une. Et la méthode suivante vous guidera facilement dans l'impression par lots de toutes les pièces jointes d'un e-mail sélectionné.

1. Sélectionnez l'e-mail dont vous imprimerez les pièces jointes ultérieurement.

2. Dans Outlook 2010 ou versions ultérieures, cliquez sur le bouton Déposez votre dernière attestation > Commercial > Options d'impression. Voir la capture d'écran suivante:

3. Dans la boîte de dialogue Imprimer, veuillez cocher la case Imprimer les fichiers joints. Les pièces jointes seront imprimées sur l'imprimante par défaut uniquement option dans la Options d'impression .

4. Clique le Commercial .

5. Dans la boîte de dialogue Ouvrir une pièce jointe au courrier, cliquez sur le bouton Ouvert bouton pour continuer. (Notes: Cette boîte de dialogue apparaîtra séparément pour chaque pièce jointe.)

Désormais, toutes les pièces jointes de ce message électronique sélectionné seront imprimées en même temps.

Pour imprimer toutes les pièces jointes dans plusieurs e-mails ainsi que toutes les images du corps du message dans Outlook, veuillez suivre les étapes ci-dessous pour appliquer un code VBA.

1. Dans la liste de diffusion, veuillez maintenir Ctrl or Shift touches pour sélectionner plusieurs e-mails dont vous imprimerez les pièces jointes.

2. presse autre + F11 touches ensemble pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Outils > Bibliographie. Et puis vérifiez le Exécution de scripts Microsoft comme indiqué ci-dessous. Une fois terminé, cliquez sur OK.

4Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre de module.

VBA: imprimer toutes les pièces jointes dans plusieurs e-mails 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. presse F5 ou cliquez sur la Courir bouton pour exécuter ce code VBA. Vous verrez maintenant que toutes les pièces jointes des e-mails sélectionnés et les images du corps du message sont imprimées.

Remarque:

• Chaque image fera apparaître une boîte de dialogue contextuelle pour vous demander la confirmation de l'impression. Alors que d'autres types de fichiers seront imprimés directement.
• S'il y a des images dans une signature d'e-mail, elles afficheront également des boîtes de dialogue contextuelles.
• Si vous obtenez Les macros de ce projet sont désactivées erreur, veuillez consulter ce tutoriel : Comment activer et désactiver les macros dans Outlook ?

Pour imprimer uniquement les pièces jointes dans plusieurs e-mails mais les images dans le corps du message dans Outlook, veuillez suivre les étapes ci-dessous pour appliquer un code VBA.

1. Dans la liste de diffusion, veuillez maintenir Ctrl or Shift touches pour sélectionner plusieurs e-mails dont vous imprimerez les pièces jointes.

2. presse autre + F11 touches ensemble pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Outils > Bibliographie. Et puis vérifiez le Exécution de scripts Microsoft comme indiqué ci-dessous. Une fois terminé, cliquez sur OK.

4Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre de module.

VBA: imprimer toutes les pièces jointes dans plusieurs e-mails 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. presse F5 ou cliquez sur la Courir bouton pour exécuter ce code VBA. Vous verrez maintenant que toutes les pièces jointes des e-mails sélectionnés sont imprimées.

Remarque:

• Chaque image jointe fera apparaître une boîte de dialogue contextuelle pour vous demander de confirmer l'impression. Alors que d'autres types de fichiers seront imprimés directement.
• Les images dans le corps du message ne seront pas imprimées.
• Si vous obtenez Les macros de ce projet sont désactivées erreur, veuillez consulter ce tutoriel : Comment activer et désactiver les macros dans Outlook ?