Passer au contenu principal

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

Kutools for 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! (essai 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 Courir .

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épondez automatiquement avec les pièces jointes 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

  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:


Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes ProSauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

 

 

Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ciao, la macro funziona. Peccato che risponde solo al mittente, allegando gli allegati, e non a tutte le persone presenti in una mail. come si potrebbe modificare per aggiungere questa seconda funzione?

grazie mille
This comment was minimized by the moderator on the site
Buna ziua!

Exista posibilitatea de a da reply all la un email care are persoane in bcc?

Multumesc!
This comment was minimized by the moderator on the site
Hi, I am using your code for reply which is great, thank you form making it available.I have my mail options set to preface comments with my initials which works when I use the standard reply. When I create a reply using this code my intials are not inserted Can you assist please?ThanksSteve
This comment was minimized by the moderator on the site
Hi
I am going to use the code to reply all with attachments in search results from All Mailboxes but it shows me an error and does not work.
please let me know how to change the code to be usable for All Mailboxes.

Best regards
Shahrooz
This comment was minimized by the moderator on the site
Hi,
The error does not cause by the search.
To avoid the error, please click Tools > References to open the References dialog, and then enable the Microsoft Scripting Runtime option. See the attached image for the steps.
This comment was minimized by the moderator on the site
Hi!

Thanks a lot for such a great tool!

Can the command be ran so that the reply window won't pop-up but stay in reading pane view?
This comment was minimized by the moderator on the site
Hi Alexey,
We have released a new version with the tool updated. Thank you for your support.
This comment was minimized by the moderator on the site
Hi Crystal!

thanks for update!
had the macro code changed or it would work only with tool installed?
This comment was minimized by the moderator on the site
Hi Alexey,
The code is used alone without the tool installed.
This comment was minimized by the moderator on the site
Very nice, thanks, but I have compiler error: User-defined type not defined. There is highlighted Dim xFSO As Scripting.FileSystemObject in part Sub CopyAttachments
This comment was minimized by the moderator on the site
Hi Honza,
The code works well in my case. Which Office version do you use?
This comment was minimized by the moderator on the site
me too. I have the problem with the same people above. I use Office 2016.
This comment was minimized by the moderator on the site
I am using office 365 with the same error
This comment was minimized by the moderator on the site
Hi Bob,
Please try:
1. Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window again;
2. Click Tools > References, and check the Microsoft Scripting Runtime box.
Now the code can work.
This comment was minimized by the moderator on the site
That solve it for me!

Thanks.
This comment was minimized by the moderator on the site
I used VBA code but it attaches with all image (.gif, jpg,...) in email content. Pls show me how to solve this problem?
This comment was minimized by the moderator on the site
Good Day,
The code is updated in the post. The problen now is solved. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
In the last part of the script, many of the variables are not defined.
This comment was minimized by the moderator on the site
I have downloaded the Kutools tab. Can I add the 'Reply with Attachment' to my home tab or to Quick Steps??
This comment was minimized by the moderator on the site
Dear Jim,
You can right click the Reply with Attachment button, and select the "Add to Quick Access Toolbar" to add this function to the Quick Access Toolbar on the Ribbon. See screenshot:
This comment was minimized by the moderator on the site
I am trying to use the Reply with Attachments but it isn't adding the attachment, just keeping the link. I use the automatic detach when email is received. Is there a configuration setting that I need to update? Thank you for your help!
This comment was minimized by the moderator on the site
Dear Susan,

The attachments won't locate in the email any more as they are detached automatically from the email. Please turn off the auto detach feature for the sake of using this Reply with Attachment feature.

Best Regards, Crystal.
This comment was minimized by the moderator on the site
how do you turn off the auto detach feature
This comment was minimized by the moderator on the site
Dear Dakota,

If you are using the Auto detach all receiving attachments feature of Kutools for Outlook, please do as below screenshot shown to turn off this feature by unchecking it in your Outlook. Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations