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