Comment copier toutes les pièces jointes de plusieurs emails dans un nouveau email dans Outlook ?
Gérer efficacement les pièces jointes des emails dans Outlook peut être difficile, surtout lorsque vous devez extraire des pièces jointes de plusieurs emails et les regrouper dans un nouvel email ou copier toutes les pièces jointes d'un email dans une réponse. Enregistrer manuellement et rattacher les fichiers n'est pas seulement chronophage mais également sujet aux erreurs. Heureusement, il existe deux méthodes efficaces pour simplifier cette tâche. Vous pouvez utiliser VBA pour extraire et insérer des pièces jointes de plusieurs emails dans un nouvel email, bien que cela nécessite certaines connaissances techniques. Cependant, pour une solution plus rapide et sans tracas, l'outil Kutools for Outlook propose une option en un clic pour copier instantanément toutes les pièces jointes d'un email dans un email de réponse, ce qui en fait le choix le plus efficace et convivial.
Copier toutes les pièces jointes de plusieurs emails dans un nouvel email en utilisant VBA (Manuel et technique)
Copiez toutes les pièces jointes d'un email vers un email de réponse instantanément avec un outil incroyable 👍 (Sans effort et recommandé)
Copier toutes les pièces jointes de plusieurs emails dans un nouvel email en utilisant VBA
Si vous préférez utiliser VBA pour automatiser le processus, vous pouvez suivre ces étapes pour extraire et copier rapidement toutes les pièces jointes de plusieurs emails dans un nouvel email.
Étape 1 : Sélectionnez plusieurs emails
Dans Outlook, sélectionnez les emails contenant les pièces jointes que vous souhaitez copier.
- Maintenez la touche "Ctrl" pour sélectionner plusieurs emails non adjacents.
- Maintenez la touche "Shift" pour sélectionner une plage d'emails adjacents.
Étape 2 : Ouvrir l'éditeur VBA
Appuyez sur "Alt" + "F11" pour ouvrir la fenêtre "Microsoft Visual Basic for Applications".
Étape 3 : Insérez le code VBA dans un nouveau module
Cliquez sur "Insérer" > "Module" pour créer un nouveau module. Et collez le code VBA suivant dans la fenêtre du module :
VBA : Copier toutes les pièces jointes de plusieurs emails dans un nouvel 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 exécuter le code. Un nouvel email s'ouvrira, contenant toutes les pièces jointes extraites des emails sélectionnés.
Inconvénients :
- ❌ Nécessite des connaissances en VBA : Pas convivial pour les débutants et implique de travailler avec du code.
- ❌ Configuration manuelle requise : Vous devez ouvrir l'éditeur VBA, insérer le code et l'exécuter à chaque fois.
- ❌ Restrictions de sécurité potentielles : Certaines versions d'Outlook bloquent les macros en raison des politiques de sécurité.
- ❌ Pas de flexibilité : Vous devez réexécuter le script à chaque fois que vous avez besoin de copier des pièces jointes.
📂 Enregistrez facilement les pièces jointes de plusieurs emails
Fatigué(e) d'enregistrer les pièces jointes un email à la fois dans Outlook ? Rationalisez votre flux de travail avec Kutools pour Outlook ! La puissante fonctionnalité Enregistrer tout (Pièces jointes) vous permet de sauvegarder des pièces jointes issues de plusieurs emails ou de dossiers entiers en quelques clics seulement. Dites adieu aux processus manuels fastidieux et gérez votre boîte de réception sans effort.
Copiez toutes les pièces jointes d'un email vers un email de réponse instantanément avec un outil incroyable 👍
Pour une solution plus simple et plus rapide, vous pouvez utiliser la fonctionnalité Répondre avec la pièce jointe originale dans "Kutools for Outlook". Cette méthode vous permet de copier toutes les pièces jointes d'un email directement dans un email de réponse en un seul clic — pas besoin de VBA ni de copie manuelle des pièces jointes.
Découvrez l'efficacité ultime des emails avec Kutools pour Outlook ! Accédez à 70 fonctionnalités puissantes entièrement gratuites, pour toujours. Téléchargez la version gratuite dès maintenant !
1. Dans la vue Mail, sélectionnez l'email auquel vous souhaitez répondre. Ensuite, cliquez sur "Kutools" > "Répondre avec la pièce jointe originale ou Répondre à tous avec la pièce jointe originale".
2. Maintenant, toutes les pièces jointes de l'email sélectionné sont automatiquement copiées dans l'email de réponse.
Avantages de la méthode Kutools for Outlook :
- ✅ Pas de copie ou collage manuel : Fonctionne instantanément en un clic.
- ✅ Pas besoin de codage VBA : Convivial et sans tracas.
- ✅ Gain de temps : Réduit considérablement l'effort par rapport aux méthodes manuelles.
- ✅ Compatible avec toutes les versions d'Outlook : Aucune restriction de macro ni avertissements de sécurité.
Articles connexes
Comment copier une pièce jointe dans un autre email dans Outlook ?
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
