Email, OutLook when I have to choose the Origin account

[drom]

Hi and thanks in advance!
I have a macro that uses OutLook to send attachments, etc through OutLook using Excel VBA.

The macro works fine, does every thing OK except:

If I have 2 or more OutLook accounts , I would like to choose which one I like to use.

At present I am using:

    With OutMail
      '''.From = wEmailFrom ????
      '.display
      .To = wEmail                  
      .CC = wCC                      
      .BCC = wBCC                  
      .SendUsingAccount = wEmailFrom    'Does NOW WORK
      '.SentOnBehalfOfName = wSentOnBehalfName 'Does NOW WORK
      .Subject = wSubject
      .Body = wTextBody
end with

So I f I have 3 OutLook Accounts say eg:

• Account1@Outlook.com
• Account2@Outlook.com
• Account3@Outlook.com

If I choose:

• wEmailFrom = Account2@Outlook.com

Don't Know why Outlook always is using:

• Account1@Outlook.com

I mean I am sending the mail, but not using the desired OutLook account.

Any IDEA what am I missing?
what do I need?

PS: I know rondebruin's website

Thanks again!

 

[Chihiro]

You need to set Outlook.Account

So something like...

Dim oAcct as Object
Set oAcct = OutMail.Session.Accounts("Your Account Name")

OutMail.SendUsingAccount = oAcct

Now, it will depend on your Outlook version if this can be done. If I recall, won't work for version before 2007.

 

[drom]

Hi!

I am actually doing that and I have office 2013.

I mean:

Dim wEmailFrom As String:        wEmailFrom = OutApp.Session.Accounts.Item(xMailAccount)
where xMailAccount = 2
and I get:
wEmailFrom = Account2@Outlook.com

But when I put:

OutMail.SendUsingAccount = wEmailFrom

I mean:

OutMail.SendUsingAccount = "Account2@Outlook.com"

I am sending through, "Account1@Outlook.com"

and Don't know why!

 

[drom]

Hi Solved:

Looks like If I put:

    With OutMail
      .To = wEmail
      .CC = wCC
      .BCC = wBCC
      Set .SendUsingAccount = OutApp.Session.Accounts.Item(2)
      '.SendUsingAccount = wEmailFrom
      '.SentOnBehalfOfName = wSentOnBehalfName
      .Subject = wSubject
      .Body = wTextBody
      '.display
      .send
    End With

Works!
I mean I get the mail from

• Account2@Outlook.com

Not from : Account1@Outlook.com