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. Cependant, lorsque vous répondez à un e-mail, Outlook supprime automatiquement toutes les pièces jointes, en supposant qu'elles ne sont pas nécessaires pour la conversation. Cela peut être frustrant et inefficace, surtout lorsque vous devez faire référence à des fichiers importants, renvoyer des documents ou conserver les pièces jointes pour un meilleur contexte. Heureusement, il existe plusieurs façons de garantir que les pièces jointes restent incluses lors d'une réponse dans Outlook, que vous préfériez une solution manuelle, en un clic ou automatisée.

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

Réponse en un clic avec pièces jointes grâce à Kutools pour Outlook 👍 (Rapide et sans effort)

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

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

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

1. Ouvrez Outlook, sélectionnez l'e-mail auquel vous souhaitez répondre, et pré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 Tout cocher > 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 et appuyez sur Ctrl + V ou cliquez sur Coller dans 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 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.

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

Réponse en un clic avec pièces jointes grâce à Kutools pour Outlook 👍

Pour une méthode rapide et sans effort pour répondre avec des pièces jointes, vous pouvez utiliser Kutools pour Outlook. La fonctionnalité Répondre avec la pièce jointe d'origine vous permet de répondre tout en conservant les pièces jointes d'origine en un seul clic.

Sélectionnez l'e-mail contenant les pièces jointes que vous souhaitez conserver. Ensuite, 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 ! Le message de réponse inclura automatiquement toutes les pièces jointes de l'e-mail d'origine. Il ne vous reste plus qu'à rédiger votre message et à cliquer sur Envoyer.

Répondre avec des pièces jointes automatiquement en utilisant VBA

Pour les utilisateurs à l'aise avec les scripts VBA, cette méthode automatise le processus de réponse avec des pièces jointes. Cependant, elle nécessite d'activer les macros dans Outlook et d'ajouter manuellement le script.

Étape 1 : Ouvrir l'éditeur VBA

1. Sélectionnez le message électronique auquel vous souhaitez répondre.

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

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

Étape 2 : Insérer le code VBA

Copiez et 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 Exécuter bouton pour exécuter la macro.

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

Résultat

La fenêtre de réponse s'ouvrira avec toutes les pièces jointes d'origine incluses. Rédigez simplement votre message et cliquez sur Envoyer.

Conclusion : Quelle méthode choisir ?

Voici une comparaison des trois méthodes pour vous aider à décider laquelle convient le mieux à vos besoins :

Pour la plupart des utilisateurs, Kutools pour Outlook est le meilleur choix car c'est le moyen le plus rapide et le plus simple de répondre avec des pièces jointes dans Outlook. Maintenant, vous pouvez facilement répondre avec des pièces jointes dans Outlook en utilisant la méthode qui convient le mieux à votre flux de travail ! 🚀

Démo : Un clic pour répondre avec des pièces jointes grâce à Kutools pour Outlook

Articles connexes :

• Comment conserver les pièces jointes lors d'une réponse dans Outlook ?
• Comment enregistrer toutes les pièces jointes de plusieurs e-mails dans un dossier dans Outlook ?
• Comment supprimer toutes les pièces jointes d'un e-mail 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 !

🤖 Kutools IA : Utilise une technologie avancée d’intelligence artificielle pour gérer vos emails en toute simplicité, notamment répondre, résumer, optimiser, étendre, traduire et rédiger des emails.

📧 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 !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez plus, téléchargez maintenant et augmentez votre productivité !

Liste des fonctionnalités de Kutools pour Outlook Télécharger maintenant Acheter