Passer au contenu principal

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 Épargnez > Épargnez 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 du 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 > Bibliographieet dans le Bibliographie 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 Commercial pour aller à la Enregistrer la sortie d'impression sous dialogue.
doc impression pièce jointe 7


Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes ProSauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how do you print attachments in multiple emails but with a certain page range
This comment was minimized by the moderator on the site
I tried the multiple emails option of pasting the VBA code, but when I press F5 to run it, I get a syntax error with this line highlighted:
If xItem.Class = olMail Then


Any ideas?
This comment was minimized by the moderator on the site
Have you check the Microsoft Scripting Runtime checkbox?
This comment was minimized by the moderator on the site
how can I enable the macro's? Last week it worked perfectly.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations