Can we change FROM email address while sending Outlook emails using vba

[Gautham A]

Hi Team,
In my workplace, I have two mailboxes. One is my individual email I'd. Other is my team mailbox.(say TEAM A). While sending emails through Outlook in the from section, I will get option to put my team mail address. Now I'm writing a code to send email through Excel VBA. The problem here is the from section takes my individual mail address. I want my team mail I'd in FROM section. Is there a way to change it through Excel VBA?

 

[ExcelenteNovel]

Hola, finalmente encontraste una solución? Tengo exactamente el mismo problema.

¿Tienes acceso desde tu equipo, además de tu cuenta fija, a la cuenta desde la cuál pretendes enviar tus correos? Para ejemplificar y pronta referencia, solicita a quien se deba de tu Mesa de ayuda o área de sistemas que te de acceso a otra cuenta y tengas así dos en tu equipo para que realices tus pruebas y evites el suponer. Comenta.

 

[Ducmans]

Hi, finally did you find a solution? I have exactly the same problem.

I got this to work using:

With OutMail
.SentOnBehalfOfName = "user@domain.TLD"
.To = sEmailTo
.BCC = ""
.subject = sEmailSubject
.Attachments.Add Fname, 1, 0
.HTMLBody = msg1
.SendUsingAccount = oAccount
.Display

End With

 

[Pereira]

Try this:

For a = 1 To OutApp.Session.Accounts.Count
If UCase(OutApp.Session.Accounts.Item(2).DisplayName) = UCase("e-mail U want use") Then
Set sd = OutApp.Session.Accounts.Item(2)
Set ad = sd.CurrentUser.AddressEntry
Next
...
Set OutMail = OutApp.CreateItem(0)
Set OutMail.Sender = ad
...