emailing in vba with outlook wont always send

[newnoviceuser]

this is the code
Sub email()
Dim TextLine
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = "tome@colla.com"
.Subject = "report for " & gtdate()
.Attachments.Add "C:\report.rtf"
.Send
End With
very simple code and will send sometimes immediately and sometimes just goes in the outbox and waits. how can i make sure it sends it out? these reports are needed daily by several people. thanks in advance

 

[HarleyQuinn]

Hi,

How long does it sit in your Outbox?

I had a similar issue using Outlook Redemption and found that when one of my scheduled Send/Receive happened (or I did a manual one or maybe two) the e-mail sent fine.

Hope this helps

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.