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 à 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 > Références et dans le Références 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 Imprimé pour aller à la Enregistrer la sortie d'impression sous dialogue.
AI Mail Assistant dans Outlook : réponses plus intelligentes, communication plus claire (magie en un clic !) un devis GRATUIT
Rationalisez vos tâches Outlook quotidiennes avec l'assistant AI Mail de Kutools for Outlook. Cet outil puissant apprend de vos e-mails passés pour offrir des réponses intelligentes et précises, optimiser le contenu de vos e-mails et vous aider à rédiger et affiner vos messages sans effort.
Cette fonctionnalité prend en charge :
- Réponses intelligentes : obtenez des réponses élaborées à partir de vos conversations passées : personnalisées, précises et prêtes à l'emploi.
- Contenu amélioré : affinez automatiquement le texte de votre e-mail pour plus de clarté et d'impact.
- Composition sans effort : fournissez simplement des mots-clés et laissez l'IA gérer le reste, avec plusieurs styles d'écriture.
- Extensions intelligentes : développez vos idées avec des suggestions contextuelles.
- Récapitulatif : obtenez instantanément des aperçus concis des longs e-mails.
- Portée mondiale : traduisez facilement vos e-mails dans n’importe quelle langue.
Cette fonctionnalité prend en charge :
- Réponses intelligentes par e-mail
- Contenu optimisé
- Brouillons basés sur des mots clés
- Extension de contenu intelligente
- Résumé par e-mail
- Traduction multilingue
Mieux encore, cette fonctionnalité est complètement faim pour toujours! N'attendez pas—téléchargez AI Mail Assistant maintenant et profitez-en!
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (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 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 Pro: Sauvegarde 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 / Vous rappeler lorsque des e-mails importants arrivent / 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
