objOutlookMsg.To = "sixuan.wang@163.com"
'objOutlookMsg.CC = ""
'objOutlookMsg.BCC = ""
' Body of the message
objOutlookMsg.Subject = "QTP Test Mail"
objOutlookMsg.Body = "This is a test mail"
objOutlookMsg.Attachments.Add(Reporter.ReportPath&"\Log\LogFile.html")