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?

 

[kennypete]

Try .SendUsingAccount and/or .SentOnBehalfOfName. Your code will look like:

...
        With outMail
...
            .SendUsingAccount = "{email address}"
            .SentOnBehalfOfName = "{email address}"
...
            '.Display                                           ' Can change to Display instead of Send to test 
            .Send                                               ' Change to Send to send rather than display the draft message
        End With

A good resource to look at is Use the mail account you want in your mail macro

 

[rjmdc]

i guess i must have access to the second account?
how does this work? .SentOnBehalfOfName =

 

[rjmdc]

what's wrong with this that it wont send using a different account

Set OutlookApp = CreateObject("Outlook.Application")
Set OlObjects = OutlookApp.GetNamespace("MAPI")
Set newmsg = OutlookApp.CreateItem(olMailItem)

On Error Resume Next

newmsg.Recipients.Add (Cells(Target.Row, "Z").Value) ' Add Recipients
newmsg.Recipients.Add (Cells(Target.Row, "AA").Value)
newmsg.Subject = Cells(Target.Row, "B").Value & " Reimbursement" ' Add Subject
newmsg.Body = "This is to inform you that payment has been processed " & _
"on behalf of " & Cells(Target.Row, "B").Value & "." & vbCrLf & "" & _
"(If Check amount is greater than billed amount, this check contains multiple receipts and reimbursement requests.)"
newmsg.SendUsingAccount = "{mail@mail.org}" 'Send Email

 

[Gautham A]

Hi Kenny

Still it is taking my individual email ID and not the team mailbox. I also ran sessions.accounts.count code. I got only one account. That is my individual mail address. Any reason why my team mailbox is not coming? While sending normal emails I'm able to put my team mailbox in FROM section. The problem occurs only while sending through Excel VBA

 

[kennypete]

Well you need to change newmsg.SendUsingAccount = "{mail@mail.org}" at least to newmsg.SendUsingAccount = "me@gmail.com" (i.e. whatever your email account is between the quotes).

As I said, try .SendUsingAccount and/or .SentOnBehalfOfName because although you may have ability to send using the group email you may only have rights on behalf of the account. Note I'm not an expert on this, however, my experience is that I see different behaviour depending on whether I am in my company's domain or at home.

 

[Gautham A]

Hi Kenny
I have tried both .sendusingaccount and .sentonbehalfofname. It is still taking only my individual mail I'd. Any solution for this? Because I'm able to send mails normally through Outlook. Then why I'm not able to send through VBA? Any other methods?

 

[Gautham A]

Hi team,
Any other methods as the above methods are not working for me?

 

[garae3]

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

 

[rjmdc]

no it fails or sends form my local open account