Dim objOutlookMsg,objOutlook
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
objOutlookMsg.To = "hanik@BR.com"
objOutlookMsg.CC = ""
objOutlookMsg.BCC = ""
objOutlookMsg.Subject = "test"
objOutlookMsg.Body = "Test"
'objOutlookMsg.Attachments.Add "C:\Documents and Settings\Desktop\testreport.txt"