QTP的那些事--有关的一些重要可用的函数（发送邮件）

采用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