Comment imprimer toutes les pièces jointes dans un ou plusieurs emails dans Outlook ?
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
- Impression groupée de toutes les pièces jointes dans un email
- Impression groupée de toutes les pièces jointes et images dans plusieurs emails sélectionnés
- Impression groupée de toutes les pièces jointes dans plusieurs emails sélectionnés, à l'exception des images dans le corps du message
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.
3. Cliquez sur le bouton Impression rapide dans le groupe Répondre de l'onglet Pièces jointes.
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 .
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.
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 :
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.
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.)
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.
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 Sub5. 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.
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 Function5. 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ère nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
