Sub Reply_with_original()
Dim Reply As Outlook.MailItem
Dim strbody, strsender, strsent, strecip, strsubj As String
Dim Original As Outlook.MailItem
Set Original = Application.ActiveExplorer.Selection(1)
Set Reply = Original.Reply
strsender = Original.sender
strrecip = Original.ReceivedByName
strsent = Original.sender
strecip = Original.To
strsubj = Original.Subject
With Reply
        .HTMLBody = "<br/><br/><hr>" _
        & "<b>From: </b>" & Original.sender & "<br/>" _
        & "<b>Sent: </b>" & Original.SentOn & "<br/>" _
        & "<b>To: </b>" & Original.To & "<br/>" _
        & "<b>Subject: </b>" & Original.Subject & "<br/><br/><br/>" _
        & Original.HTMLBody
    End With
Reply.Display

End Sub
Sub Reply_without_original()
Dim Reply As Outlook.MailItem
Dim strbody, strsender, strsent, strecip, strsubj As String
Dim Original As Outlook.MailItem
Set Original = Application.ActiveExplorer.Selection(1)
Set Reply = Original.Reply
strsender = Original.sender
strrecip = Original.ReceivedByName
strsent = Original.sender
strecip = Original.To
strsubj = Original.Subject
With Reply
        .HTMLBody = "<br/><br/><hr>" _
        & "<b>From: </b>" & Original.sender & "<br/>" _
        & "<b>Sent: </b>" & Original.SentOn & "<br/>" _
        & "<b>To: </b>" & Original.To & "<br/>" _
        & "<b>Subject: </b>" & Original.Subject & "<br/><br/><br/>" _
        
    End With
Reply.Display


End Sub