Si nous avons converti l'e-mail HTML en RTF avant de répondre, les noms de toutes les pièces jointes seront copiés dans le message de réponse après avoir cliqué sur Accueil> Répondre dans Outlook.

1. Double-cliquez pour ouvrir l'e-mail dont vous devez copier les noms des pièces jointes, puis cliquez sur Message > Actions > Modifier le message dans la fenêtre de message. Voir la capture d'écran:

2. Allez-y pour cliquer Format du texte > Texte Riche, puis enregistrez et fermez l'e-mail.

3. Vous revenez maintenant à la vue principale. Continuez à sélectionner l'e-mail et cliquez sur Accueil > Répondre.

4. Maintenant, les noms de toutes les pièces jointes sont copiés à partir de l'e-mail d'origine et collés dans le message de réponse comme illustré ci-dessous. Veuillez rédiger le message de réponse et l'envoyer.

Répondez facilement aux e-mails sélectionnés avec toutes les pièces jointes d'origine conservées dans Outlook

En général, les pièces jointes d'origine sont supprimées lors de la réponse à un e-mail dans Outlook. Mais, avec fantastique Répondre avec pièce jointe fonctionnalité de Kutools for Outlook, vous pouvez facilement conserver toutes les pièces jointes des e-mails lorsque vous y répondez dans Outlook.

Cette méthode introduira une macro VBA pour copier les noms de toutes les pièces jointes lors de la réponse à un e-mail, puis collera les noms dans le corps du message de l'e-mail de réponse dans Outlook.

1. presse autre + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans l'explorateur de projet de gauche, développez le projet 1, double-cliquez pour ouvrir le Cette session Outlook fenêtre (voir capture d'écran ci-dessous), puis collez le code ci-dessous dans la fenêtre.

VBA: Copiez le nom de toutes les pièces jointes lors de la réponse à un e-mail dans Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3Cliquez sur Outils > Références .

4. Dans la fenêtre Références d'ouverture - Projet 1 pour Outlook 2016, veuillez vérifier le Bibliothèque d'objets Microsoft Word 16.0 référence dans la zone Références disponibles, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

Notes: Veuillez sélectionner le Bibliothèque d'objets Microsoft Word 15.0 référence si vous travaillez avec Outlook 2013, ou Bibliothèque d'objets Microsoft Word 14.0 référence avec Outlook 2010.

5. Enregistrez le VBA et fermez la fenêtre Microsoft Visual Basic pour Applications.

6. Vous revenez maintenant à l'interface principale d'Outlook. Sélectionnez l'e-mail auquel vous répondrez et cliquez sur Accueil > Répondre or Répondre à tous.
Remarque : Si les noms des pièces jointes ne sont pas copiés et collés dans l'e-mail de réponse, redémarrez votre Outlook et répondez à nouveau.

Et maintenant, le nom de toutes les pièces jointes est copié à partir de l'e-mail sélectionné et collé dans l'e-mail de réponse. Voir la capture d'écran: