Outlook Macro – Reply with custom FROM field

Sub Reply()
Dim msg As Outlook.MailItem
Set msg = Application.ActiveExplorer.Selection(1).Reply
msg.SentOnBehalfOfName = “email@domain.com”
msg.Display
End Sub

Microsoft Outlook 2010