Comment imprimer uniquement les pièces jointes d'un e-mail ou d'e-mails sélectionnés dans Outlook?

Dans Outlook, vous pouvez imprimer les e-mails, mais avez-vous imprimé les pièces jointes uniquement à partir d'un e-mail ou d'e-mails sélectionnés dans Outlook? Dans cet article, je présente les astuces pour résoudre ce travail.

Imprimer uniquement les pièces jointes d'un e-mail avec Quick Print

Imprimer uniquement les pièces jointes des e-mails sélectionnés avec VBA

Imprimer uniquement les pièces jointes d'un e-mail avec Quick Print

Pour imprimer les pièces jointes uniquement sans le corps de l'e-mail, vous pouvez utiliser la fonction d'impression rapide.

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

2. Puis clique Épargnez > Épargnez pour enregistrer le fichier de pièce jointe dans un emplacement.

3. Maintenant, allez à l'emplacement où vous avez placé le fichier joint et ouvrez le fichier pour imprimer comme d'habitude.

Imprimer uniquement les pièces jointes des e-mails sélectionnés avec VBA

Si vous souhaitez imprimer les pièces jointes des e-mails sélectionnés, vous pouvez utiliser le code VBA.

1. Sélectionnez les e-mails dont vous souhaitez imprimer les pièces jointes, appuyez sur Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.

2. Double-cliquez Cette session Outlook à partir de Project1 volet, copiez et 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. Puis clique Outils > Bibliographieet dans le Bibliographie boîte de dialogue, vérifier Exécution de scripts Microsoft case à cocher.
  

4. Cliquez OK, puis appuyez F5 pour imprimer toutes les pièces jointes des e-mails sélectionnés en masse.

Notes: Si la pièce jointe est une image, elle apparaîtra Imprimer des photos boîte de dialogue d'abord, cliquez sur Commercial pour aller à la Enregistrer la sortie d'impression sous dialogue.