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

Gérer efficacement les pièces jointes dans Outlook peut s’avérer complexe, notamment lorsqu’il s’agit d’extraire des pièces jointes provenant de plusieurs courriels pour les regrouper dans un(e) Nouveau email, ou de copier toutes les pièces jointes d’un courriel directement dans une réponse. Enregistrer et rattacher manuellement les fichiers prend non seulement beaucoup de temps, mais comporte aussi un risque d’erreurs. Heureusement, deux solutions efficaces permettent de simplifier cette tâche. Vous pouvez utiliser VBA pour extraire et insérer des pièces jointes depuis plusieurs courriels vers un(e) Nouveau email, bien que cela exige quelques compétences techniques. Toutefois, pour une solution plus rapide et sans complication, l’outil Kutools pour Outlook propose une option en un clic pour copier instantanément toutes les pièces jointes d’un courriel directement dans un courriel de réponse, ce qui en fait le choix le plus efficace et le plus convivial.

Copier toutes les pièces jointes de plusieurs courriels vers un(e) Nouveau email à l’aide de VBA(Manuel et technique)

Copier toutes les pièces jointes d’un courriel vers un courriel de réponse instantanément avec un outil exceptionnel 👍(Simple et recommandé)

---

Copier toutes les pièces jointes de plusieurs courriels vers un(e) Nouveau email à l’aide de VBA

Si vous préférez automatiser ce processus à l’aide de VBA, suivez ces étapes pour extraire et copier rapidement toutes les pièces jointes de plusieurs courriels vers un nouvel e-mail.

Étape 1 : Sélectionnez plusieurs courriels

Dans Outlook, sélectionnez les courriels contenant les pièces jointes que vous souhaitez copier.

• Maintenez la touche « Ctrl » enfoncée pour sélectionner plusieurs courriels non contigus.
• Maintenez la touche « Maj » enfoncée pour sélectionner une plage de courriels adjacents.

Étape 2 : Ouvrez l’éditeur VBA

Appuyez sur « Alt » + « F11 » pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

Étape 3 : Insérez le code VBA dans un nouveau module

Cliquez  sur « Insertion » > « Module » pour créer un nouveau module, puis collez le code VBA suivant dans la fenêtre du module :

VBA : Copier toutes les pièces jointes de plusieurs courriels vers un(e) Nouveau email

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

Étape 4 : Exécutez le code VBA

Appuyez sur « F5 » ou cliquez sur le bouton Exécuter pour lancer le code. Un nouvel e-mail s’ouvrira, contenant toutes les pièces jointes extraites des courriels sélectionnés.

---

Copier toutes les pièces jointes d’un courriel vers un courriel de réponse instantanément avec un outil exceptionnel 👍

Pour une solution plus simple et plus rapide, utilisez la fonctionnalité « Répondre avec la pièce jointe d’origine » de Kutools pour Outlook : en un seul clic, elle vous permet de copier automatiquement toutes les pièces jointes d’un e-mail dans votre réponse, sans avoir recours à VBA ni effectuer de copie manuelle.

1. Dans la vue Courrier, sélectionnez le courriel auquel vous souhaitez répondre, puis cliquez sur « Kutools » > « Répondre avec la pièce jointe d’origine » ou « Répondre à tous avec la pièce jointe d’origine ».

2. Toutes les pièces jointes de l’e-mail sélectionné sont désormais automatiquement incluses dans votre réponse.

---

Articles associés

Comment copier une pièce jointe vers un autre courriel dans Outlook ?