QTP使用Smtp协议发送邮件

  NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
 Set Email = CreateObject("CDO.Message")
 Email.From = "XXX@YY.com"
 Email.To = "XXX@YY.com"
 Email.CC = ""
 Email.Subject = "mail subject"
 Email.Textbody = "OK!"
 Email.AddAttachment "C:\111.txt"
 Email.Configuration.Fields.Item(NameSpace &"sendusing") =
 Email.Configuration.Fields.Item(NameSpace & "smtpserver")= "smtp.YY.com"
 Email.Configuration.Fields.Item(NameSpace & "smtpserverport")=
 Email.Configuration.Fields.Item(NameSpace & "smtpauthenticate") =
 Email.Configuration.Fields.Item(NameSpace & "sendusername")= "username"
 Email.Configuration.Fields.Item(NameSpace & "sendpassword")= "password"
 Email.Configuration.Fields.Update
 Email.Send  

可以获取当前测试用例执行状态，然后发送不同的mail

 Select Case Reporter.RunStatus
     Case micFail
             Call doFailStatusEmail()
    Case micWarning
             Call doWarningStatusEmail()
    Case micPass
             'Everything is fine
 End Select