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
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
Leave a Reply