Greetings,

I have been working on a project & was curious to know if there is any macro where in I click the macro, a compose window opens with all the names in the email I received (reply all, basically) with a fixed text which I can edit.

I have been using the below macro, but then this does not have the email I received as part of the email that I want to send. I have come with the below macro, just that it does not include the original email as part of the reply to all.

Sub EmailReply()
Dim MyItem As Outlook.MailItem
Dim currItem As Outlook.MailItem
Set Original = Application.ActiveExplorer.Selection(1)
Set Reply = Original.ReplyAll
Reply.Subject = Original.Subject
Reply.Body = "Dear _____," & vbNewLine & vbNewLine & "The order has been modified as per your request." & vbNewLine & vbNewLine & "Change Detail: (Item Name & quantities updated)." & vbNewLine & "Reason: (as mentioned by the CS dept)"
Reply.Display
End Sub