Skip to main content

How to copy all attachments' names when replying in Outlook?

When replying an RTF email (formatted as Rich Format) in Outlook, it will copy all attachments' names and paste in the message body automatically (see screenshot below). However, when replying an HTML email in Outlook, attachments are missing in replying email. Here, this article will introduce some methods to copy all attachments' name when replying emails, or in the received emails directly.


Copy all attachments' names when replying with changing HTML to RTF

If we have converted the HTML email to RTF before replying, all attachments' names will be copied to the replying message after clicking Home > Reply in Outlook.

1. Double click to open the email whose attachments' names you need to copy, and then click Message > Actions > Edit Message in the message window. See screenshot:

2. Go ahead to click Format Text > Rich Text, and then save and close the email.

3. Now you return to the main view. Keep selecting the email, and click Home > Reply.

4. Now all attachments' names are copied from the original email and pasted into the replying message as below screenshot shown. Please compose the replying message and send it.

Copy all attachments' names when replying with VBA

This method will introduce a VBA macro to copy all attachments' names when replying an email, and then paste the names into the message body of replying email in Outlook.

1. Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.

2. In the left Project Explorer, expand the Project 1, double click to open the ThisOutlookSession window (see screenshot below), and then paste below code into the window.

VBA: Copy all attachments' name when replying an email in 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. Click Tools > References.

4. In the opening References – Project 1 window for Outlook 2016, please check the Microsoft Word 16.0 Object Library reference in the Available References box, and click the OK button. See screenshot:

Note: Please select the Microsoft Word 15.0 Object Library reference if you are working with Outlook 2013, or Microsoft Word 14.0 Object Library reference with Outlook 2010.

5. Save the VBA and close the Microsoft Visual Basic for Applications window.

6. Now you return to the main interface of Outlook. Select the email you will reply, and click Home > Reply or Reply All.
Note: If the attachment names are not copied and pasted into the replying email, please restart your Outlook and reply again.

And now all attachments' name are copied from the selected email and pasted into the replying email. See screenshot:


Copy all attachment names when replying with amazing tool

If you have Kutools for Outlook installed, you can apply its Copy Names feature to quickly copy all attachment names from a received email, and then paste in its replying message easily in Outlook.

Kutools for Outlook: Ultimate Outlook toolkit with over 100 handy tools. Try it FREE for 60 days, no limitations, no worries!   Read More...   Start Free Trial Now!

1. Select the email you will reply, and click Kutools > Attachment Tools > Copy Names.

Then a dialog comes out and tells you the attachment names are copied to the clipboard. Click OK to close it.

2. Go ahead to click Home > Reply to reply the selected email.

3. In the replying message window, put the cursor in the message body, and press Ctrl + V keys to paste the attachment names easily.

Easily reply selected emails with all original attachments kept in Outlook

In general, original attachments are removed when replying an email in Outlook. But, with fantastic Reply with Attachment feature of Kutools for Outlook, you can easily keep all attachments of emails when replying it in Outlook.


reply with attachments


Related articles:


Best Office Productivity Tools

Kutools for Outlook - Over 100 Powerful Features to Supercharge Your Outlook

🤖 AI Mail Assistant: Instant pro emails with AI magic--one-click to genius replies, perfect tone, multilingual mastery. Transform emailing effortlessly! ...

📧 Email Automation: Out of Office (Available for POP and IMAP)  /  Schedule Send Emails  /  Auto CC/BCC by Rules When Sending Email  /  Auto Forward (Advanced Rules)   /  Auto Add Greeting   /  Automatically Split Multi-Recipient Emails into Individual Messages ...

📨 Email Management: Easily Recall Emails  /  Block Scam Emails by Subjects and Others  /  Delete Duplicate Emails  /  Advanced Search  /  Consolidate Folders ...

📁 Attachments ProBatch Save  /  Batch Detach  /  Batch Compress  /  Auto Save   /  Auto Detach  /  Auto Compress ...

🌟 Interface Magic: 😊More Pretty and Cool Emojis   /  Boost Your Outlook Productivity with Tabbed Views  /  Minimize Outlook Instead of Closing ...

👍 One-click Wonders: Reply All with Incoming Attachments  /   Anti-Phishing Emails  /  🕘Show Sender's Time Zone ...

👩🏼‍🤝‍👩🏻 Contacts & Calendar: Batch Add Contacts From Selected Emails  /  Split a Contact Group to Individual Groups  /  Remove Birthday Reminders ...

Over 100 Features Await Your Exploration! Click Here to Discover More.

Read More       Free Download      Purchase
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations