Outlook Mail Problem

See more:

VB

Hi,
I wrote the following code for send a mail...

Dim OL As Outlook.Application
           Dim olMail As Outlook.MailItem
           Dim myattachments As Outlook.Attachments
           Set OL = CreateObject("Outlook.Application")
           Set olMail = OL.CreateItem(olMailItem)
           Set myattachments = olMail.Attachments
       olMail.To = "mymaild"
       olMail.CC = "mymaild"
       olMail.Body = "TEST MAIL NOW"
       olMail.Subject = "TEST MAIL NOW"
       olMail.Send
       Set olMail = Nothing
           Set OL = Nothing

Its working only my outlook mail is opened...otherwise the mail didn't send..i want to send a mail the outlook was closed.Thanks in advance...

by Subbu