Comment imprimer uniquement la ou les pièces jointes d’un seul e-mail ou de plusieurs e-mails sélectionnés dans Outlook ?

Dans Outlook, vous pouvez imprimer des e-mails, mais avez-vous déjà imprimé uniquement les pièces jointes d’un seul message ou de plusieurs messages sélectionnés ? Dans cet article, je vous partage des astuces efficaces pour y parvenir.

Imprimer uniquement la ou les pièces jointes d’un seul e-mail avec Impression rapide

Imprimer uniquement la ou les pièces jointes de plusieurs e-mails sélectionnés à l’aide de VBA

---

Imprimer uniquement la ou les pièces jointes d’un seul e-mail avec Impression rapide

Pour imprimer uniquement les pièces jointes, sans le corps de l’e-mail, utilisez la fonction Impression rapide.

1. Dans la fenêtre du message, cliquez avec le bouton droit sur la pièce jointe que vous souhaitez imprimer, puis choisissez « Impression rapide » dans le menu contextuel.

2. Cliquez ensuite sur « Enregistrer » > « Enregistrer » pour enregistrer le fichier de la pièce jointe à l’emplacement de votre choix.

3. Rendez-vous dès maintenant à l’emplacement où vous avez enregistré le fichier de la pièce jointe, puis ouvrez-le pour l’imprimer comme à votre habitude.

---

Imprimer uniquement la ou les pièces jointes de plusieurs e-mails sélectionnés à l’aide de VBA

Pour imprimer les pièces jointes de plusieurs e-mails sélectionnés, utilisez un code VBA.

1. Sélectionnez les e-mails dont vous souhaitez imprimer les pièces jointes, puis appuyez sur les touches « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».

2. Double-cliquez sur « ThisOutlookSession » dans le volet « Projet1 », puis copiez-collez le code ci-dessous dans le script.

VBA : imprimer les pièces jointes des e-mails sélectionnés

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. Cliquez ensuite sur « Outils » > « Références », puis cochez la case « Microsoft Scripting Runtime » dans la boîte de dialogue « Références ».
  

4. Cliquez sur « OK », puis appuyez sur la touche « F5 » pour imprimer en une seule fois toutes les pièces jointes des e-mails sélectionnés.

Remarque : si la pièce jointe est une image, la boîte de dialogue « Imprimer des images » s’ouvre d’abord ; cliquez sur « Imprimer » pour accéder à la boîte de dialogue « Enregistrer la sortie d’impression sous ».