proper code for sending emails?

[jerry12302]

Can someone look at this code and tell me if it is appropriate? Is there a better way to do it?

I have been having problems with emails getting through when I use this.

Sub MailerTest()
Dim objol As New Outlook.Application
Dim objmail As MailItem
Set objol = New Outlook.Application
Set objmail = objol.createitem(olmailitem)
With objmail
.To = "someemailaddress@yahoo.com"
.cc = "ccsomeemailaddress@hotmail.com"
.Subject = "Test 12/9 10:39"
.Body = "This is a Test 12/9 10:39"
.NoAging = True
.Attachments.Add "C:\somefile.xls"
.display
End With
Set objmail = Nothing
Set objol = Nothing
SendKeys "%{s}", True
End Sub

Thanks for your help!

 

[Greg Truby]

Is your Exchange server mailbox full?

 

[jerry12302]

I'm not even sure how to know that, I'm sorry to say. I'm not very internet or network savvy when it comes to understanding these things.

I have an AOL account. I recently configured Outlook so I could send and receive (and manage) emails directly from Outlook, instead of having to load AOL. That's all I know, I'm afraid.

I did run AOL and checked my mail, all seems fine. I can send mail from AOL fine. No problems there.

 

[Greg Truby]

...I can't send emails manually from Outlook anymore either, I've tried several tests and I get the same result....

I think you're going to have to get to where you can send e-mails with Outlook manually before you're going to have any chance of success with this code. If you cannot send e-mails manually, I do not anticipate that e-mails created by code will have any better luck getting through.