Accéder au contenu principal

Comment imprimer toutes les pièces jointes dans un ou plusieurs emails dans Outlook ?

Author: Kelly Last Modified: 2025-05-27

Comme vous le savez, en cliquant sur Fichier > Imprimer dans Microsoft Outlook, seul le contenu de l'email, tel que l'en-tête et le corps, sera imprimé, mais pas les pièces jointes. Nous allons vous montrer comment imprimer facilement toutes les pièces jointes d'un email sélectionné dans Microsoft Outlook.


Imprimer toutes les pièces jointes dans un email une par une

Microsoft Outlook nous offre la fonctionnalité d'impression rapide, qui peut vous aider à imprimer les pièces jointes d'un email une par une.

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

2. Cliquez sur une pièce jointe dans cet email.

steps of printing all attachments in one email message one by one

3. Cliquez sur le bouton Impression rapide dans le groupe Répondre de l'onglet Pièces jointes.

steps of printing all attachments in one email message one by one
Remarque : les Outils de pièces jointes ne seront activés qu'après avoir cliqué sur les pièces jointes dans les emails.

4. Une boîte de dialogue Ouverture de la pièce jointe de courrier apparaît, et veuillez cliquer sur le bouton Ouvrir .

steps of printing all attachments in one email message one by one

Veuillez noter que cette étape ouvrira la pièce jointe sélectionnée et imprimera simultanément cette pièce jointe sélectionnée.

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

Enregistrer/exporter rapidement toutes les pièces jointes de plusieurs emails dans Outlook

Normalement, nous pouvons enregistrer les pièces jointes d'un email en activant les Outils de pièces jointes et en appliquant la fonction Enregistrer toutes les pièces jointes dans Outlook. Mais que faire si nous voulons enregistrer les pièces jointes de plusieurs emails, ou de tout le dossier de courrier dans Outlook ? Essayez la fonction Enregistrer tout (pièces jointes) de Kutools pour Outlook.

save attachments in multiple emails kto9

Impression groupée de toutes les pièces jointes dans un email

S'il y a de nombreuses pièces jointes dans un email, il serait chronophage de les imprimer une par une. La méthode suivante vous guidera pour imprimer en lot toutes les pièces jointes d'un email sélectionné facilement.

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

2. Dans Outlook 2010 ou versions ultérieures, veuillez cliquer sur Fichier > Imprimer > Options d'impression. Voir la capture d'écran ci-dessous :

steps of batch printing all attachments in one email message

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

steps of batch printing all attachments in one email message

4. Cliquez sur le bouton Imprimer.

5. Dans la boîte de dialogue Ouverture de la pièce jointe de courrier qui apparaît, veuillez cliquer sur le bouton Ouvrir pour continuer. (Remarque : Cette boîte de dialogue apparaîtra pour chaque pièce jointe séparément.)

steps of batch printing all attachments in one email message

Maintenant, toutes les pièces jointes dans cet email sélectionné seront imprimées en une seule fois.


Impression groupée de toutes les pièces jointes et images dans plusieurs emails sélectionnés

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

1. Dans la liste des emails, maintenez les touches Ctrl ou Shift enfoncées pour sélectionner plusieurs emails dont vous imprimerez les pièces jointes.

2. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

3. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Outils > Références. Cochez ensuite l'option Microsoft Scripting Runtime comme indiqué ci-dessous. Une fois terminé, cliquez sur OK.

steps of batch printing all attachments and pictures in multiple selected emails

4. Cliquez sur Insérer > Module, puis collez le code VBA ci-dessous dans la nouvelle fenêtre de module.

VBA : Imprimer toutes les pièces jointes dans plusieurs emails 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. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter ce code VBA. Vous verrez maintenant que toutes les pièces jointes dans les emails sélectionnés et les images dans le corps du message sont imprimées.

Remarque :

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

Impression groupée de toutes les pièces jointes dans plusieurs emails sélectionnés, à l'exception des images dans le corps du message

Pour n'imprimer que les pièces jointes dans plusieurs emails, mais pas les images dans le corps du message dans Outlook, suivez les étapes ci-dessous pour appliquer un code VBA.

1. Dans la liste des emails, maintenez les touches Ctrl ou Shift enfoncées pour sélectionner plusieurs emails dont vous imprimerez les pièces jointes.

2. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

3. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Outils > Références. Cochez ensuite l'option Microsoft Scripting Runtime comme indiqué ci-dessous. Une fois terminé, cliquez sur OK.

the steps of batch printing all attachments in multiple selected emails except pictures in the body

4. Cliquez sur Insérer > Module, puis collez le code VBA ci-dessous dans la nouvelle fenêtre de module.

VBA : Imprimer toutes les pièces jointes dans plusieurs emails 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. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter ce code VBA. Vous verrez maintenant que toutes les pièces jointes dans les emails sélectionnés sont imprimées.

Remarque :

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

Démo : imprimer une ou toutes les pièces jointes dans un email Outlook

 

Meilleurs outils de productivité pour Office

Dernières nouvelles : Kutools pour Outlook lance une version gratuite !

Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !

🤖 Kutools IA : Utilise une technologie IA avancée pour gérer les emails sans effort, y compris répondre, résumer, optimiser, étendre, traduire et composer des emails.

📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...

📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...

🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...

👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...

Déverrouillez instantanément Kutools pour Outlook d'un simple clic. Ne tardez pas, téléchargez maintenant et boostez votre efficacité !

kutools for outlook features1 kutools for outlook features2