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
0 comments:
Post a Comment