Comment copier les noms de toutes les pièces jointes lors d’une réponse dans Outlook ?

Si nous convertissons l’e-mail HTML en RTF avant de répondre, les noms de toutes les pièces jointes sont automatiquement copiés dans le message de réponse dès que vous cliquez sur Accueil > Répondre dans Outlook.

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

2. Cliquez ensuite sur Texte > Texte enrichi, puis enregistrez et fermez l’e-mail.

3. Vous êtes maintenant de retour dans la vue principale. Sélectionnez toujours l’e-mail, puis cliquez sur Accueil > Répondre.

4. Les noms de toutes les pièces jointes sont désormais automatiquement copiés depuis l’e-mail d’origine et insérés dans votre message de réponse, comme le montre la capture d’écran ci-dessous. Rédigez votre réponse, puis envoyez-la.

Répondre facilement Répondre à plusieurs emails sélectionnés tout en conservant toutes les pièces jointes d’origine dans Outlook

Généralement, les pièces jointes d’origine sont supprimées lorsque vous répondez à un e-mail dans Outlook. Mais grâce à la fonctionnalité remarquable Répondre avec pièce(s) jointe(s) de Kutools pour Outlook, vous pouvez facilement conserver toutes les pièces jointes en répondant à un e-mail dans Outlook.

Si vous avez Kutools pour Outlook installé, vous pouvez utiliser sa fonctionnalité Copier les noms pour copier rapidement tous les noms des pièces jointes d’un e-mail reçu, puis les coller facilement dans votre message de réponse sous Outlook.

1. Sélectionnez l’e-mail auquel vous souhaitez répondre, puis cliquez sur KUTOOLS PLUS > Outils de pièces jointes > Copier les noms.

Une boîte de dialogue s’ouvre alors et vous indique que les noms des pièces jointes ont été copiés dans le presse-papiers. Cliquez sur OK pour la fermer.

2. Cliquez ensuite sur Accueil > Répondre pour répondre à l’e-mail sélectionné.

3. Dans la fenêtre du message de réponse, placez le curseur dans le corps du message, puis appuyez sur les touches Ctrl+V pour coller facilement le nom de la pièce jointe.

Cette méthode propose une macro VBA qui copie automatiquement les noms de toutes les pièces jointes lors de la rédaction d’une réponse à un e-mail, puis les insère directement dans le corps du message dans Outlook.

1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans l’Explorateur de projets à gauche, développez le projet 1, double-cliquez pour ouvrir la fenêtre ThisOutlookSession (voir la capture d’écran ci-dessous), puis collez le code suivant dans cette fenêtre.

VBA : Copier les noms 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

3. Cliquez sur Outils > Références.

4. Dans la fenêtre Références – Projet 1 qui s’ouvre pour Outlook 2016, cochez la référence Microsoft Word 16,0 Object Library dans la zone Références disponibles, puis cliquez sur le bouton OK. Voir la capture d’écran :

Remarque : cochez la référence Microsoft Word 15,0 Object Library si vous utilisez Outlook 2013, ou la référence Microsoft Word 14,0 Object Library avec Outlook 2010.

5. Enregistrez le code VBA, puis fermez la fenêtre Microsoft Visual Basic pour Applications.

6. Vous êtes maintenant de retour sur l’interface principale d’Outlook. Sélectionnez l’e-mail auquel vous souhaitez répondre, puis cliquez sur Accueil > Répondre ou Répondre à tous.
Remarque : Si les noms des pièces jointes ne sont pas copiés dans l’e-mail de réponse, veuillez redémarrer Outlook et réessayer.

Les noms de toutes les pièces jointes sont désormais copiés depuis l’e-mail sélectionné et collés dans le message de réponse. Voir la capture d’écran :