Using Classic Outlook on Windows for personal email, calendar, and contact management
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.
This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
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
Using Classic Outlook on Windows for personal email, calendar, and contact management
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.
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.
Totally agree, Outlook should add this feature in a future update
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.
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
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