Can't Correct Code Send Email via Outlook using Excel Code

[Anne Troy]

I'm using Outlook locally with 2 accounts.
I want to send emails programatically using the "non-default" account.
I checked out "SendUsingAccount", but wasn't able to make that work.
Anyone know the syntax?

Here's my code:

    On Error Resume Next
    With OutMail
        '.From = Range("fromwho").Text this doesn't work, even if it's hard-coded email addy
        .To = "anne@annetroy.com"
        .CC = Range("driveremail").Text
        .BCC = "anne@annetroy.com"
        .Subject = Range("spsubj").Text
        .Body = strbody
        .Display   'or use .Send
    End With
    On Error GoTo 0

 

[starl]

Hi Anne, long time no see!

have you tried using .SendUsingAccount?

Outmail.SendUsingAccount = OutApp.Session.Accounts.Item(1) 'might require Set at the beginning for 2016 and newer....

The "1" is the number of the account to use. Ron has an example of this at his site:
https://www.rondebruin.nl/win/s1/outlook/account.htm

 

[Anne Troy]

Hey, girl!!

Yep. I tried that as stated in my post.
I think I missed the (1) part....

This worked:

    On Error Resume Next
    With OutMail
    Set .SendUsingAccount = OutApp.Session.Accounts.Item(2)

Thanks!!!

 

[starl]

ugh - sorry I missed that. Was so excited to see, wasn't reading clearly
Glad you got it figured out!

 

[Anne Troy]

Dang. lost my reply. Here it is again:

If you'd seen it, you might not have made me try it again!

GREAT to see you as well.