selecting an account when sending e-mail from Access 2016 through Outlook?

Hi,

I've got to the code to send e-mails from an Access 2016 app via Outlook 2016. And that works. But I want the e-mails to be sent through a different Outlook account. How would I do that?

Thanks!
XeronimoAsked:
Who is Participating?
 
Rgonzo1971Commented:
Hi,

Have you tried?
MailItem.SendUsingAccount

refer to
https://msdn.microsoft.com/en-us/vba/outlook-vba/articles/mailitem-sendusingaccount-property-outlook


something like this
Sub SendUsingAccount()
 For Each oAccount In Application.Session.Accounts
    If oAccount.userName = "john.doe" Then
        Set myAccount = oAccount
        Exit For
    End If
 Next
 Set oMail = Application.CreateItem(olMailItem)
 oMail.Subject = "Subject"
 oMail.Recipients.Add ("jane.doe@example.com")
 oMail.Recipients.ResolveAll
 oMail.SendUsingAccount = myAccount
 oMail.Send
End Sub

Open in new window

Regards
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.