Parfois, vous devrez extraire et imprimer les listes de pièces jointes de plusieurs e-mails. Dans cet article, nous allons vous apprendre 2 méthodes pour l'obtenir.
Si vous recevez plusieurs e-mails avec plusieurs pièces jointes pour vos références, vous pouvez imprimer ces noms de pièces jointes. Dans cette situation, comment pouvez-vous l'obtenir en vrac? Ci-après, nous vous apprendrons 2 façons d'imprimer rapidement les listes de pièces jointes uniquement de plusieurs e-mails Outlook.
Méthode 1 : Imprimer et copier la liste des pièces jointes au format RTF
- Au tout début, ouvrez un e-mail Outlook.
- Ensuite, dans la fenêtre Message, cliquez sur "Actions" et sélectionnez "Modifier le message".
- Ensuite, passez à l'onglet "Formater le texte", sur lequel sélectionnez le format "Rich Text".
- Immédiatement, vous pouvez voir que les pièces jointes sont déplacées vers le corps.
- Après cela, cliquez sur le bouton "Répondre" dans le groupe "Répondre" sur l'onglet "Message".
- Dans le courrier suivant, la liste des pièces jointes était déjà dans le corps, comme la capture d'écran ci-dessous.
- Vous pouvez maintenant copier la liste des pièces jointes dans un nouvel e-mail.
- Plus tard, utilisez cette méthode pour copier les listes de pièces jointes d'autres e-mails dans le nouveau courrier.
- Enfin, vous pouvez imprimer ce nouveau courrier comme d'habitude.
Méthode 2 : Imprimer les listes de pièces jointes via Outlook VBA
- Pour commencer, appuyez sur « Alt + F11 » pour ouvrir l’éditeur VBA d’Outlook.
- Ensuite, copiez le code VBA suivant dans un module.
Sub PrintAttachmentListsOfManyEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim objTempMail As Outlook.MailItem
'Get the selected emails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
'Input the attachment lists into a temp mail
Set objTempMail = Outlook.Application.CreateItem(olMailItem)
For i = 1 To objSelection.Count
If objSelection(i).Class = olMail Then
Set objMail = objSelection(i)
If objMail.Attachments.Count > 0 Then
objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
For n = 1 To objMail.Attachments.Count
Set objAttachment = objMail.Attachments(n)
objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
Next
End If
End If
Next
'Print the temp mail
objTempMail.PrintOut
End If
End Sub
- Ensuite, ajoutez cette macro à la barre d'outils d'accès rapide en vous référant à l'article - "Comment exécuter le code VBA dans votre Outlook" .
- Finalement, essayez cette macro.
- Dans un premier temps, choisissez plusieurs e-mails.
- Ensuite, cliquez sur le bouton macro dans la barre d'outils d'accès rapide.
- Immédiatement, les listes de pièces jointes de ces e-mails doivent avoir été imprimées.
Recours à un outil de réparation Outlook Tip-top
Lorsque vous rencontrez des dommages au fichier Outlook, il est préférable que vous disposiez d'une sauvegarde récente des données Outlook. Il peut vous permettre de vous débarrasser d'un correctif de fichier Outlook compliqué. Mais, parfois, la sauvegarde peut ne pas être restaurée. À ce stade, vous devrez recourir à un outil de réparation plus stellaire et professionnel, comme DataNumen Outlook Repair. Il peut réparer PST corrompu dans quelques minutes.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparation mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com