Experimente o link do SentOnBehalfOfName
Exemplo de código link
Sub TestSentOnBehalfOfName()
Dim myOlApp as Outlook.Application
Dim myItem as Outlook.MailItem
' Create an Outlook application object
Set myOlApp = New Outlook.Application
' Creates a new MailItem form
Set myItem = myOlApp.CreateItem(olMailItem)
' Set the "From" field
myItem.SentOnBehalfOfName = "Jon Grande"
' Display the item
myItem.Display
End Sub
Aqueles que procuram a pergunta e resposta original: E-mail agendado e recorrente no Outlook? ?