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") = 2  
Email.Configuration.Fields.Item(NameSpace & "smtpserver")= "smtp.YY.com"  
Email.Configuration.Fields.Item(NameSpace & "smtpserverport")= 25  
Email.Configuration.Fields.Item(NameSpace & "smtpauthenticate") = 1  
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