Comment copier toutes les pièces jointes de plusieurs e-mails vers un nouvel e-mail dans Outlook？

En général, il est facile de copier des pièces jointes d'un e-mail à un autre en copiant et collant dans Outlook. Mais que diriez-vous de copier les pièces jointes de plusieurs e-mails vers un nouveau? Cet article présente les solutions pour vous.

Copiez toutes les pièces jointes de plusieurs e-mails dans un nouvel e-mail

Cet article présentera un VBA pour copier rapidement toutes les pièces jointes de plusieurs e-mails vers un nouveau dans Outlook. Veuillez procéder comme suit:

1. Sélectionnez plusieurs e-mails dont vous allez copier les pièces jointes et appuyez sur autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
Notes: En portant Ctrl clé, vous pouvez sélectionner plusieurs e-mails non adjacents en cliquant dessus un par un; en portant Shift clé, vous pouvez sélectionner plusieurs e-mails adjacents en cliquant sur le premier et le dernier.

2Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre Module.

VBA: Copiez toutes les pièces jointes de plusieurs e-mails vers un nouveau

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

3. presse F5 clé ou le Courir bouton pour exécuter ce VBA.

Vous verrez maintenant que toutes les pièces jointes sont copiées à partir des e-mails sélectionnés et collées dans un nouvel e-mail.

Copiez toutes les pièces jointes d'un e-mail vers son e-mail de réponse

Si Kutools for Outlook est installé, vous pouvez appliquer son Répondre avec pièce jointe pour copier facilement toutes les pièces jointes d'un e-mail vers son e-mail de réponse dans Outlook. Veuillez procéder comme suit:

Sélectionnez l'e-mail auquel vous répondrez et cliquez sur Kutools > Répondre avec pièce jointe > Répondre avec pièce jointe. Voir capture d'écran:

Vous verrez maintenant que toutes les pièces jointes sont automatiquement copiées dans l'e-mail de réponse.

Articles Relatifs

Comment copier une pièce jointe dans un autre e-mail dans Outlook?

---

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!

🤖 Kutools IA : Utilise une technologie d'IA avancée pour gérer les e-mails sans effort, notamment en répondant, en résumant, en optimisant, en prolongeant, en traduisant et en composant des e-mails.

📧 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 

Déverrouillez instantanément Kutools pour Outlook en un seul clic :gratuit en permanence. N'attendez pas, téléchargez maintenant et augmentez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook      Télécharger la version gratuite      Passer au Professionnel