Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to keep attachments when replying in Outlook?

When we forward an email message in Microsoft Outlook, original attachments in this email message are remained in the forwarded message. However, when we reply an email message, the original attachments will not be attached in the new reply message. Here we are going to introduce a couple of tricks about keeping original attachments when replying in Microsoft Outlook.

Reply with attachments by manually copying and pasting

Reply with attachments automatically by VBA

One click to reply with attachments with Kutools for Outlook


Easily reply email with original attachments in Outlook:

Kutools for Outlook's Reply with Attach utility can help you easily reply a received email with it's original attachments. Please select the email you want to reply with its attachments, and click Kutools > Reply with Attachment > Reply with Attachment. Download the full feature 45-day free trail of Kutools for Outlook now!

Kutools for Outlook: with more than 100 handy Outlook add-ins, free to try with no limitation in 45 days. Download and free trial Now!

Kutools for Outlook: 100+ New Advanced Tools for Outlook.
Office Tab: Enable Tabbed Editing and Browsing in Office, Just Like Chrome, Firefox, IE 8/9/10.
Classic Menu: Bring Old Menus and Toolbars Back to Office 2007, 2010, 2013, 2016 and 2019.

Reply with attachments by manually copying and pasting

We can manually copy original attachments in an email messages, and paste them in the Reply Message window when we reply the email message later.

Step 1: Click the email message to preview it in the Reading Pane.

Step 2: Right click one attachment in the previewing email message, and select the Select All from the right-clicking menu.

Step 3: Right click the selected attachments, and select the Copy from the right-clicking menu.

Step 4: Reply the email message with clicking the Reply button on the Home tab (or on the Toolbar in Outlook 2007).

Step 5: In the Replying message window, click the Paste button on the Message tab to paste these attachments.

If you are using Outlook 2013, click the Pop Out at the upper-left corner of Reading Pane to release the Replying message window. Click to know more…

Step 6: Compose the replying message, and Click the Send button.


Reply with attachments automatically by VBA 

There is a VBA macro that can help you reply with original attachments automatically.

Note: Before you run any VBA macros, you need to enable macros in Microsoft Outlook.

Step 1: Select the email message that you will reply with its attachments.

Step 2: Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.

Step 3: Expand the Project1 and Microsoft Outlook Objects in the left bar, and double-click the ThisOutlookSession to open it.

Step 4: Paste the following code into the ThisOutlookSession window.

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

Step 5: Press the F5 key to run this macro. In the opening Macros dialog box, click RunReplyAllWithAttachments if you want to reply to all with attachments. Otherwise, select RunReplyWithAttachments, then click the Run button.

Then it opens the Replying message window with attaching all of original attachments.

Step 6: Compose the replying message, and click Send button.


Reply with attachments automatically with Kutools for Outlook (just one click)

The Reply with Attach utility of Kutools for Outlook can help you to reply emails with original attachments with just one click.

Kutools for Outlook : with more than 20 handy Outlook add-ins, free to try with no limitation in 45 days.

1. Select the email contains the attachments you need to reply with.

2. Then click Kutools > Reply with Attach > Reply with Attach. See screenshot:

3. Now a reply message window pops up with all original attachments listed in the Attached field. Compose your email and send it.

If you want to have a free trial of this utility, please go to free download the software first, and then go to apply the operation according above steps.


One click to reply with attachments with Kutools for Outlook

Kutools for Outlook includes 20+ powerful features and tools for Microsoft Outlook. Free to try with no limitation in 45 days. Download the free trial now!


Related articles:

 

Recommended Productivity Tools

shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121

Kutools for Outlook - More than 100 Advanced Functions for Outlook, Improve 70% Efficiency For you

  • Complicated and repeated operations can be done a one-time processing in seconds.
  • Forward multiple emails individually with one-click, and auto forward by rules.
  • Auto CC/BCC every sending email and easy for customizing rules, and auto reply without requiring exchange server.
  • Powerful junk emails filter, remove duplicate emails, reply with attachment, bunch of one-click operations, and so on...
  • 60-day unlimited free trial. 60-day money back guarantee. 2 years free upgrade and support. Buy once, use forever.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alexey · 6 months ago
    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?
  • To post as a guest, your comment is unpublished.
    Honza · 8 months ago
    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
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Hi Honza,
      The code works well in my case. Which Office version do you use?
      • To post as a guest, your comment is unpublished.
        Hien · 8 months ago
        me too. I have the problem with the same people above. I use Office 2016.
        • To post as a guest, your comment is unpublished.
          Rob · 7 months ago
          I am using office 365 with the same error
          • To post as a guest, your comment is unpublished.
            crystal · 6 months ago
            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.
  • To post as a guest, your comment is unpublished.
    Nhan Nguyen Tuan · 9 months ago
    I used VBA code but it attaches with all image (.gif, jpg,...) in email content. Pls show me how to solve this problem?
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Good Day,
      The code is updated in the post. The problen now is solved. Please have a try and thanks for your comment.
  • To post as a guest, your comment is unpublished.
    NMGMarques · 1 years ago
    In the last part of the script, many of the variables are not defined.
  • To post as a guest, your comment is unpublished.
    Jim · 1 years ago
    I have downloaded the Kutools tab. Can I add the 'Reply with Attachment' to my home tab or to Quick Steps??
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      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: