Comment conserver les pièces jointes lors de la réponse dans Outlook?

Lorsque nous transférons un message électronique dans Microsoft Outlook, les pièces jointes d'origine de ce message électronique sont conservées dans le message transféré. Cependant, lorsque nous répondons à un e-mail, les pièces jointes d'origine ne seront pas jointes au nouveau message de réponse. Ici, nous allons présenter quelques astuces pour conserver les pièces jointes d'origine lors de la réponse dans Microsoft Outlook.

Répondre avec des pièces jointes en copiant et collant manuellement
Répondre automatiquement avec des pièces jointes par VBA
Un clic pour répondre avec des pièces jointes avec Kutools for Outlook

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

Nous pouvons copier manuellement les pièces jointes originales dans un e-mail et les coller dans la fenêtre Message de réponse lorsque nous répondrons ultérieurement au message électronique.

Étape 1: cliquez sur le message électronique pour en afficher un aperçu dans le volet de lecture.

Étape 2: Cliquez avec le bouton droit sur une pièce jointe dans le message électronique de prévisualisation et sélectionnez le Sélectionner tout dans le menu contextuel.

Étape 3: Faites un clic droit sur les pièces jointes sélectionnées et sélectionnez le Copier dans le menu contextuel.

Étape 4: Répondez au message électronique en cliquant sur le bouton Répondre bouton sur la Accueil onglet (ou sur la barre d'outils dans Outlook 2007).

Étape 5: Dans la fenêtre de réponse au message, cliquez sur l'icône pâtes bouton sur la Message onglet pour coller ces pièces jointes.

Si vous utilisez Outlook 2013 ou une version ultérieure, cliquez sur l'icône Sortir dans le coin supérieur gauche du volet de lecture pour libérer la fenêtre de message de réponse. Cliquez pour en savoir plus…

Étape 6: Composez le message de réponse et cliquez sur le bouton Envoyer .

Répondre automatiquement avec des pièces jointes par VBA 

Il existe une macro VBA qui peut vous aider à répondre automatiquement avec les pièces jointes d'origine.

Remarque: avant d'exécuter des macros VBA, vous devez activer les macros dans Microsoft Outlook.

Étape 1: Sélectionnez le message électronique auquel vous répondrez avec ses pièces jointes.

Étape 2: appuyez sur le autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

Étape 3: développez les objets Project1 et Microsoft Outlook dans la barre de gauche et double-cliquez sur le Cette session Outlook pour l'ouvrir.

Étape 4: collez le code suivant dans la fenêtre ThisOutlookSession.

Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
    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 Scripting.FileSystemObject
    Dim xTmpFolder As Scripting.Folder
    Dim xFldPath As String
    Set xFSO = New 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 = ""
    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 5: appuyez sur le F5 clé pour exécuter cette macro. Dans l'ouverture Macros boîte de dialogue, cliquez sur ExécuterReplyAllWithAttachments si vous souhaitez répondre à tous avec des pièces jointes. Sinon, sélectionnez ExécuterRépondreAvec les pièces jointes, puis cliquez sur le cours .

Ensuite, il ouvre la fenêtre du message de réponse en joignant toutes les pièces jointes d'origine.

Étape 6: rédigez le message de réponse et cliquez sur Envoyer .

Répondre avec les pièces jointes automatiquement avec Kutools for Outlook

La Répondre avec Joindre utilité de Kutools for Outlook peut vous aider à répondre aux e-mails avec des pièces jointes originales en un seul clic.

Kutools for Outlook : avec plus de 100 compléments Outlook pratiques, gratuit pour essayer sans limitation dans 60 jours.

1. Sélectionnez l'e-mail contenant les pièces jointes auxquelles vous devez répondre.

2. Puis clique Kutools > Répondre avec pièce jointe > Répondre avec pièce jointe. Voir la capture d'écran:

Ensuite, toutes les pièces jointes de l'e-mail sélectionné sont répertoriées dans le Attaché champ du message de réponse. Composez votre e-mail et envoyez-le.

Si vous souhaitez avoir un essai gratuit de cet utilitaire, rendez-vous sur télécharger gratuitement le logiciel d'abord, puis appliquez l'opération selon les étapes ci-dessus.

Un clic pour répondre avec des pièces jointes avec Kutools for Outlook

Articles Liés:

• Comment conserver les pièces jointes lors de la 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 du courrier électronique dans Outlook?

---

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et rend le travail beaucoup plus facile !

• CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
• Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
• Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
• Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
• Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.

Lire la suite... Télécharger maintenant...