Note: The other languages of the website are Google-translated. Back to English

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.
doc impression pièce jointe 1

2. Puis clique Enregistrer > Enregistrer pour enregistrer le fichier de pièce jointe dans un emplacement.
doc impression pièce jointe 2
doc impression pièce jointe 3

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

doc impression pièce jointe 4

3. Puis clique Outils > Référenceset dans le Références boîte de dialogue, vérifier Exécution de scripts Microsoft case à cocher.
doc impression pièce jointe 5   doc impression pièce jointe 6

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 Impression pour aller à la Enregistrer la sortie d'impression sous dialogue.
doc impression pièce jointe 7


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (4)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
comment puis-je activer les macros ? La semaine dernière, cela a parfaitement fonctionné.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé l'option d'e-mails multiples consistant à coller le code VBA, mais lorsque j'appuie sur F5 pour l'exécuter, j'obtiens une erreur de syntaxe avec cette ligne en surbrillance :
Si xItem.Class = olMail Alors


Des idées?
Ce commentaire a été minimisé par le modérateur sur le site
Avez-vous coché la case Microsoft Scripting Runtime ?
Ce commentaire a été minimisé par le modérateur sur le site
comment imprimer des pièces jointes dans plusieurs e-mails mais avec une certaine plage de pages
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL