RogerCooper
Registered User.
- Local time
- Today, 04:29
- Joined
- Jul 30, 2014
- Messages
- 283
I am still trying to use something other than my default e-mail to send invoices. This code should send an e-mail from my other e-mail.
An e-mail is created, but it comes from my default address. I can generate an e-mail from the ar@spectroline.com address manually. What I am doing wrong here?
Code:
Sub testEmail()
Dim oLook As Object
Dim oMail As Object
Set oLook = CreateObject("Outlook.Application")
Set oMail = oLook.CreateItem(0)
With oMail
.SendUsingAccount = "ar@spectroline.com"
.to ="<personal e-mail address>"
.body = "Test Message"
.subject = "Test"
.Send
End With
End Sub
An e-mail is created, but it comes from my default address. I can generate an e-mail from the ar@spectroline.com address manually. What I am doing wrong here?