Reply with attachment included

Anonymous
2023-03-22T07:49:25+00:00

Hi, is there a function in the outlook to "reply" to the message with attachment included? Not asking about copy paste, or drag in or forward. Simple reply with attachment.

Many thanks

Robert

Outlook | Windows | Classic Outlook for Windows | For home

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments No comments

81 answers

Sort by: Most helpful
  1. Anonymous
    2024-10-16T13:59:01+00:00

    Thanks for replying. I don't want to have to use add-in from some third party - demo or paid version. Microsoft outlook should provide the functionality.

    Was this answer helpful?

    3 people found this answer helpful.
    0 comments No comments
  2. Anonymous
    2024-04-18T23:22:58+00:00

    Totally agree, Outlook should add this feature in a future update

    Was this answer helpful?

    3 people found this answer helpful.
    0 comments No comments
  3. Anonymous
    2024-04-03T20:12:00+00:00

    This will be greatly appreciate if you can add this option. I always have to go back and search for the attachment in the original mail.

    Was this answer helpful?

    3 people found this answer helpful.
    0 comments No comments
  4. Anonymous
    2024-03-25T13:44:15+00:00

    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

    Was this answer helpful?

    3 people found this answer helpful.
    0 comments No comments
  5. Anonymous
    2023-03-22T13:21:14+00:00

    Hi,

    this is of course a great idea and we are using it inside the organization where you are able to share files. If we go outside, we usually do not share and forwarding messages including att.

    Plus, sometimes i need to share simple calculation for info; and for that reason i only need to send an att.

    robert

    Was this answer helpful?

    3 people found this answer helpful.
    0 comments No comments