Comment conserver les pièces jointes lors d’une réponse dans Outlook ?

Dans Microsoft Outlook, lorsque vous transférez un e-mail, les pièces jointes d’origine restent intactes. En revanche, lorsque vous répondez à un e-mail, Outlook supprime automatiquement toutes les pièces jointes, estimant qu’elles ne sont pas nécessaires dans la conversation. Cela peut être frustrant et inefficace, notamment lorsque vous devez faire référence à des fichiers importants, renvoyer des documents ou conserver les pièces jointes pour mieux contextualiser. Heureusement, plusieurs solutions permettent de conserver les pièces jointes lors d’une réponse dans Outlook, que vous préfériez une solution manuelle, en un clic ou automatisée :

Répondre avec pièces jointes en copiant-collant manuellement(Basique et fastidieux)

Solution en un clic Répondre avec pièces jointes avec Kutools pour Outlook 👍(Rapide et sans effort)

Répondre avec pièces jointes automatiquement avec VBA(Technique et nécessite une configuration)

Répondre avec pièces jointes en copiant-collant manuellement

Vous pouvez copier manuellement les pièces jointes d’un e-mail et les coller dans votre message de réponse avant de l’envoyer.

2. Ouvrez Outlook, sélectionnez l’e-mail auquel vous souhaitez répondre, puis visualisez-le dans le volet de lecture ou ouvrez-le dans une fenêtre séparée.

2. Cliquez sur l’une des pièces jointes, puis cliquez sur Sélectionner tout > Copier sous l’onglet Pièces jointes.

3. Cliquez sur le bouton Répondre pour ouvrir une fenêtre de réponse.

4. Dans le message de réponse, cliquez n’importe où dans le corps du message, puis appuyez sur Ctrl+V, ou cliquez sur Coller sous l’onglet Message pour insérer les pièces jointes copiées.

5. Rédigez votre réponse, vérifiez les pièces jointes, puis cliquez sur Envoyer.

---

📂 Enregistrez facilement les pièces jointes de plusieurs e-mails

Vous en avez assez d’enregistrer les pièces jointes un e-mail à la fois dans Outlook ? Simplifiez votre flux de travail avec Kutools pour Outlook ! La puissante fonctionnalité Enregistrer tout (pièces jointes) vous permet d’enregistrer les pièces jointes de plusieurs e-mails ou de dossiers entiers en quelques clics seulement. Dites adieu aux procédures manuelles fastidieuses et reprenez le contrôle de votre boîte de réception en toute simplicité.

Téléchargez Kutools pour Outlook dès maintenant

Solution en un clic Répondre avec pièces jointes avec Kutools pour Outlook 👍

Pour une méthode rapide et sans effort de répondre avec les pièces jointes, utilisez Kutools pour Outlook. Grâce à la fonctionnalité Répondre avec la pièce jointe d’origine, répondez en conservant les pièces jointes du message initial en un seul clic.

Sélectionnez l’e-mail contenant les pièces jointes que vous souhaitez conserver, puis cliquez sur Kutools > Répondre avec la pièce jointe d’origine ou Répondre à tous avec la pièce jointe d’origine.

C’est tout ! Votre message de réponse inclura automatiquement toutes les pièces jointes de l’e-mail d’origine. Il vous suffit de rédiger votre message et de cliquer sur Envoyer.

Répondre avec pièces jointes automatiquement avec VBA

Pour les utilisateurs à l’aise avec les scripts VBA, cette méthode automatise le processus de réponse avec pièces jointes. Toutefois, elle exige l’activation des macros dans Outlook ainsi que l’ajout manuel du script.

Étape 1 : Ouvrir l’éditeur VBA

1. Sélectionnez le message e-mail auquel vous souhaitez répondre.

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

3. Dans le volet gauche, développez Projet1 > Objets Microsoft Outlook. Double-cliquez sur ThisOutlookSession pour l’ouvrir.

Étape 2 : Insérer le code VBA

Copiez-collez le code VBA suivant dans la fenêtre ThisOutlookSession:

Sub RunReplyWithAttachments()
'Update by Extendoffice 20250224
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub

Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub

Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.CurrentItem
    End Select
End Function

Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Object
    Dim xTmpFolder As Object
    Dim xFldPath As String
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

Étape 3 : Exécuter la macro VBA

1. Appuyez sur F5 ou cliquez sur le bouton Exécuter pour lancer la macro.

2. Dans la boîte de dialogue Macros, sélectionnez ThisOutlookSession.RunReplyAllWithAttachments pour répondre à tous, ou choisissez ThisOutlookSession.RunReplyWithAttachments pour répondre à un seul destinataire, puis cliquez sur Exécuter.

Résultat

La fenêtre de réponse s’ouvre avec toutes les pièces jointes d’origine. Il vous suffit de rédiger votre message, puis de cliquer sur Envoyer.

Conclusion : Quelle méthode choisir ?

Voici une comparaison des trois méthodes pour vous aider à choisir celle qui correspond le mieux à vos besoins :

Pour la plupart des utilisateurs, Kutools pour Outlook constitue la meilleure option, car c’est la solution la plus rapide et la plus simple pour répondre avec pièces jointes dans Outlook. Désormais, vous pouvez facilement répondre avec pièces jointes dans Outlook en choisissant la méthode la mieux adaptée à votre flux de travail ! 🚀

Démo : Un clic pour Répondre avec pièces jointes avec Kutools pour Outlook

Articles associés :

• Comment conserver les pièces jointes lorsque vous répondez à un e-mail dans Outlook ?
• Comment enregistrer toutes les pièces jointes de plusieurs e-mails dans un même dossier depuis Outlook ?
• Comment supprimer toutes les pièces jointes d’un e-mail dans Outlook ?

---

Meilleurs outils de productivité Office

Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !

🤖Kutools IA:Utilise une technologie d’intelligence artificielle avancée pour gérer vos e-mails sans effort, notamment en répondant, résumant, optimisant, développant, traduisant et rédigeant des messages.

📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...

📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…

📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…

🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...

👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…

👩🏼‍🤝‍👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…

Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !

Débloquez Kutools pour Outlook instantanément en un seul clic ! Ne perdez plus une seconde : téléchargez dès maintenant et boostez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook      Télécharger maintenant      Accéder à l’achat

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Fortement recommandé : Kutools for Office (5-en-1)

Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !

• ✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
• 🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
• 🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint

À propos de la Suite⬇ Télécharger la Suite💳 Acheter la Suite