I tried your code... Seems to work but every other time I click the button, I get this error?
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim oAccount As Outlook.Account
Set appOutLook = CreateObject("Outlook.Application")
For Each oAccount In appOutLook.Session.Accounts
If oAccount = "
results@testing.com" Or oAccount = "
results1@testing.com" Then
Set MailOutLook = CreateItem(olMailItem)
MailOutLook.SendUsingAccount = oAccount
End If
Next