Note: The other languages of the website are Google-translated. Back to English

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 Votre 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épondez facilement aux e-mails avec les pièces jointes d'origine dans Outlook:

Kutools pour Outlook's Répondre avec pièce jointe L'utilitaire peut vous aider à répondre facilement à un e-mail reçu avec ses pièces jointes d'origine dans Outlook. Voir la démo ci-dessous: 
Téléchargez et essayez-le maintenant! (Parcours gratuit de 60 jours)


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 course .

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 automatiquement avec des pièces jointes avec Kutools for Outlook

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

Kutools pour 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

  Si vous souhaitez bénéficier d'un essai gratuit (60 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.


Articles Liés:


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • 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és...
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en double... Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (24)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Salut l'équipe, Il existe un moyen d'exécuter cette macro à l'aide de certaines touches de raccourci dans Outlook.
Rituraj Sharma
Ce commentaire a été minimisé par le modérateur sur le site
Oui. Sous les options principales, vous pouvez ajouter un onglet développeur où vous pouvez trouver les macros. Et, encore mieux, si vous faites un clic droit sur la bande en haut avec tous les boutons, ils appellent cela un "ruban", vous pouvez ajouter un nouveau groupe personnalisé et afficher vos macros sous forme de boutons directement dans l'onglet Accueil.
mr
Ce commentaire a été minimisé par le modérateur sur le site
J'essaie d'utiliser la réponse avec pièces jointes, mais elle n'ajoute pas la pièce jointe, mais conserve simplement le lien. J'utilise le détachement automatique lors de la réception d'un e-mail. Y a-t-il un paramètre de configuration que je dois mettre à jour ? Merci de votre aide!
Susan Landes
Ce commentaire a été minimisé par le modérateur sur le site
Chère Susan,

Les pièces jointes ne seront plus localisées dans l'e-mail car elles sont automatiquement détachées de l'e-mail. Veuillez désactiver la fonction de détachement automatique pour pouvoir utiliser cette fonction de réponse avec pièce jointe.

Cordialement, Cristal.
cristal
Ce commentaire a été minimisé par le modérateur sur le site
comment désactiver la fonction de détachement automatique
Dakota
Ce commentaire a été minimisé par le modérateur sur le site
Chère Dakota,

Si vous utilisez la fonctionnalité Détacher automatiquement toutes les pièces jointes de réception de Kutools pour Outlook, veuillez procéder comme ci-dessous pour désactiver cette fonctionnalité en la décochant dans votre Outlook. Merci!
cristal
Ce commentaire a été minimisé par le modérateur sur le site
J'ai téléchargé l'onglet Kutools. Puis-je ajouter la "Répondre avec pièce jointe" à mon onglet d'accueil ou aux étapes rapides ? ?
Jimmy
Ce commentaire a été minimisé par le modérateur sur le site
Cher Jim,
Vous pouvez cliquer avec le bouton droit sur le bouton Répondre avec pièce jointe et sélectionner "Ajouter à la barre d'outils d'accès rapide" pour ajouter cette fonction à la barre d'outils d'accès rapide du ruban. Voir capture d'écran :
cristal
Ce commentaire a été minimisé par le modérateur sur le site
Dans la dernière partie du script, de nombreuses variables ne sont pas définies.
NMG Marques
Ce commentaire a été minimisé par le modérateur sur le site
J'ai utilisé le code VBA mais il s'attache à toutes les images (.gif, jpg,...) dans le contenu des e-mails. Pls me montrer comment résoudre ce problème?
Nhan Nguyên Tuan
Ce commentaire a été minimisé par le modérateur sur le site
Good Day,
Le code est mis à jour dans le post. Le problème est maintenant résolu. S'il vous plaît essayez et merci pour votre commentaire.
cristal
Ce commentaire a été minimisé par le modérateur sur le site
Très bien, merci, mais j'ai une erreur de compilation : type défini par l'utilisateur non défini. Il est mis en surbrillance Dim xFSO As Scripting.FileSystemObject dans la partie Sub CopyAttachments
Jack
Ce commentaire a été minimisé par le modérateur sur le site
Salut Honza,
Le code fonctionne bien dans mon cas. Quelle version d'Office utilisez-vous ?
cristal
Ce commentaire a été minimisé par le modérateur sur le site
Moi aussi. J'ai le problème avec les mêmes personnes ci-dessus. J'utilise Office 2016.
Hien
Ce commentaire a été minimisé par le modérateur sur le site
J'utilise office 365 avec la même erreur
Voler
Ce commentaire a été minimisé par le modérateur sur le site
Salut Bob,
S'il vous plaît essayez:
1. Appuyez sur les touches Alt + F11 pour ouvrir à nouveau la fenêtre Microsoft Visual Basic pour Applications ;
2. Cliquez sur Outils > Références et cochez la case Microsoft Scripting Runtime.
Maintenant, le code peut fonctionner.
cristal
Ce commentaire a été minimisé par le modérateur sur le site
Cela résout le problème pour moi !

Merci.
httan
Ce commentaire a été minimisé par le modérateur sur le site
Hello!

Merci beaucoup pour un si bon outil!

La commande peut-elle être exécutée de sorte que la fenêtre de réponse ne s'affiche pas mais reste dans la vue du volet de lecture ?
Alexey
Ce commentaire a été minimisé par le modérateur sur le site
Salut Alexeï,
Nous avons publié une nouvelle version avec l'outil mis à jour. Merci pour votre soutien.
cristal
Ce commentaire a été minimisé par le modérateur sur le site
Salut Crystal!

merci pour la mise à jour !
le code macro avait-il changé ou ne fonctionnerait-il qu'avec l'outil installé ?
Alexey
Ce commentaire a été minimisé par le modérateur sur le site
Salut Alexeï,
Le code est utilisé seul sans l'outil installé.
cristal
Ce commentaire a été minimisé par le modérateur sur le site
Hi
Je vais utiliser le code pour répondre à tous avec des pièces jointes dans les résultats de recherche de Toutes les boîtes aux lettres, mais cela me montre une erreur et ne fonctionne pas.
s'il vous plaît laissez-moi savoir comment changer le code pour qu'il soit utilisable pour toutes les boîtes aux lettres.

Meilleures salutations
Chahrooz
Shahrooz Bral
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
L'erreur n'est pas causée par la recherche.
Pour éviter l'erreur, cliquez sur Outils > Références pour ouvrir la boîte de dialogue Références, puis activez l'option Microsoft Scripting Runtime. Voir l'image ci-jointe pour les étapes.
cristal
Ce commentaire a été minimisé par le modérateur sur le site
Salut, J'utilise votre code pour répondre, ce qui est génial, merci de le rendre disponible. Mes options de messagerie sont définies pour faire précéder les commentaires de mes initiales, ce qui fonctionne lorsque j'utilise la réponse standard. Lorsque je crée une réponse en utilisant ce code, mes initiales ne sont pas insérées Pouvez-vous aider s'il vous plaît ? Merci Steve
Steve
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés