SendTo = "abc@abc.com
Attachment = "C:\abc.txt"
 Set ol=CreateObject("Outlook.Application")
     Set Mail=ol.CreateItem(0)
     Mail.to = SendTo
     Mail.Subject="Test Results "
     Mail.Body=" Test Results"
   '  If (Attachment <> "") Then
       Mail.Attachments.Add(Attachment)
    ' End If
     Mail.Send
     'ol.Quit
     Set Mail = Nothing
     Set ol = Nothing