摘要: \'*****************************************************************\'脚本说明:将运行结果发送邮件\'*****************************************************************Dim SendTo, Subject, Body, Attachment\'S ...
|
'*****************************************************************'脚本说明:将运行结果发送邮件'*****************************************************************Dim SendTo, Subject, Body, Attachment'SendTo ="[email protected];[email protected]" '发送多个邮箱以分号分割SendTo ="[email protected]"Subject ="自动化测试结果"Body ="自动化测试结果"Attachment =ReportLocation&"测试结果1.html"'SendMail SendTo, Subject, Body, AttachmentFunction SendMail(SendTo, Subject, Body, Attachment)Dim ol,MailSet l=CreateObject("Outlook.Application")Set Mail=ol.CreateItem(0)Mail.to=SendToMail.Subject=SubjectMail.Body=BodyIf (Attachment <> "") ThenMail.Attachments.Add(Attachment)End If' Mail.display '邮件显示Mail.Sendol.QuitSet Mail = NothingSet l = NothingEnd Function