采用vbs进行调用邮箱进行发送邮件，这个主要可以使用在QTP中例如执行完用例后调用该方法进行通知项目组的人员，测试的一些执行情况。
方法如下：
Function SendMail(SendTo, Subject, Body, Attachment)
Set ol=CreateObject("Outlook.Application")
Set Mail=ol.CreateItem(0)
Mail.to=SendTo
Mail.Subject=Subject
Mail.Body=Body
If (Attachment <> "") Then
Mail.Attachments.Add(Attachment)
End If
Mail.Send
ol.Quit
Set Mail = Nothing
Set ol = Nothing
End Function
，如需转载请自行联系原作者。
