Reply with attachment included

Hello Robert,

Thank you, I've seen it and I'm currently using it as well.

Have a good one

I couldn't agree more. We send attachments constantly and to not have the CHOICE to always have the attachment stay with the email is, for me, infuriating. Enough so, that I am taking time out of my day looking up this issue and commenting in hopes that Microsoft will provide more customization. Please!

Hi, since I have posted this questions, there were many feedbacks/answers and one of them was very useful which I will repost. There is Free add inn App for Microsoft outlook named "Reply with Attachment" which is basically solution to my question. I am using it and is working very well. If one want to try: https://appsource.microsoft.com/en-us/product/office/WA104381616?tab=Overview

enjoy!

rob

Click [Alt] + [F11]

Create new module

Paste code below

Add quick ribbon button for macro

'-------------------------------------------

Sub ReplyAllWithAttachments()
    Dim oReply As Outlook.MailItem
    Dim oItem As Object

    Set oItem = GetCurrentItem()
    If Not oItem Is Nothing Then
        Set oReply = oItem.ReplyAll
        CopyAttachments oItem, oReply
        oReply.Display
        oItem.UnRead = False
    End If

    Set oReply = Nothing
    Set oItem = Nothing
End Sub

Sub CopyAttachments(oSourceItem As Object, oTargetItem As Object)
    Dim oAttachment As Outlook.Attachment
    For Each oAttachment In oSourceItem.Attachments
        If Not oAttachment.FileName Like "image*" Then
            Dim sSavePath As String
            sSavePath = Environ("TEMP") & "" & oAttachment.FileName
            oAttachment.SaveAsFile sSavePath
            oTargetItem.Attachments.Add sSavePath, olByValue, , oAttachment.DisplayName
            Kill sSavePath
        End If
    Next oAttachment
End Sub

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application
    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
        Case Else
            Set GetCurrentItem = Nothing
    End Select
    On Error GoTo 0
    Set objApp = Nothing
End Function

One year later and nothing? Was this never raised with Microsoft's Product Team as you suggested you "surely" will? Or does the feedback of a litany of people with the same grievance mean nothing to Microsoft?

"We apologize if we are not able to meet your requirements; however, thank you for bringing this to our attention, we will surely raise you concerns to our Product Team and hopefully this can be included in the future updates."