Sub Reply()
Dim msg As Outlook.MailItem
Set msg = Application.ActiveExplorer.Selection(1).Reply
msg.SentOnBehalfOfName = "
msg.Display
End Sub
MS Outlook 2010
Sub Reply()
Dim msg As Outlook.MailItem
Set msg = Application.ActiveExplorer.Selection(1).Reply
msg.SentOnBehalfOfName = "
msg.Display
End Sub
MS Outlook 2010