Function SendtoMail(Email_From,Password,Email_To,Email_Attachment)
Set CDO = CreateObject("CDO.Message") '创建CDO.Message对象
CDO.Subject = "自动化测试结果" '邮件主题
CDO.From = Email_From '发件人地址 a
CDO.To = Email_To '收件人地址
CDO.TextBody = "测试失败!" '邮件正文
IF Email_Attachment<>"" Then
CDO.AddAttachment Email_Attachment '邮件附件文件路径
End IF
Const schema = "http://schemas.microsoft.com/cdo/configuration/" '规定必须是这个,我也不知道为什么