Outlook Macro - Reply with custom FROM field

Sub Reply()
Dim msg As Outlook.MailItem
Set msg = Application.ActiveExplorer.Selection(1).Reply
msg.SentOnBehalfOfName = "This email address is being protected from spambots. You need JavaScript enabled to view it."
msg.Display
End Sub

MS Outlook 2010