QTP 使用 CDONTS 发送邮件

在QTP中可以outlook 和 cdonts发送邮件，但是使用Outlook 需要在运行QTP的点脑安装Outlook，而且发送时要打开Outlook还会出现一个对话框，要求点击确认，无法实现真正的自动发送，所以本人还是推荐使用CDONTS来发送邮件。

CDONTS EMail是IIS提供的组件。使用这个组件有两个前提：

1. 系统安装并启动了SMTP服务

2. CDONTS.dll被注册到系统中(系统默认没有注册这个组件，从网上该组件并RegSvr32命令注册即可)

CDONTS安装方法：
Step1: 将该文件拷贝至 %SystemRoot%//System32 下;
Step2: 开始 -> 运行 -> Regsvr32 cdonts.dll;
Step3: 确认

然后输入脚本

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

' Example 2
Function SendMail(SendFrom, SendTo, Subject, Body)
Set objMail=CreateObject("CDONTS.Newmail")
ObjMail.From = SendFrom
ObjMail.To = SendTo
ObjMail.Subject = Subject
ObjMail.Body = Body
ObjMail.Send
Set objMail = Nothing
End Function

调用脚本 SendMail "aa@aa.com", "bb@bb.com","Test","Testbody"

执行脚本，检查邮箱是否收到邮件

如果邮件顺利收到固然很好，而且这个流程网上也有很多，我也无需再此多说一遍，但是很多时候，事与愿违，并不能顺利收到邮件，经过一步步地分析推理，发现其中更有玄机，这才是我最想分享给大家的：

如果收不到邮件，需要到IIS，SMTP虚拟邮件服务器的属性里面去看一下，安全是否加了允许匿名访问，或者加了来宾用户。



另外到默认的邮件路径下，看一下C:/Inetpub/mailroot/Queue里面是否有违发送的邮件，如果有稍等一下，看是否消失，如果消失；然后再到C:/Inetpub/mailroot//Badmail 查看你的邮件是否还留在此文件夹下，如果有则说明发送失败了。 然后再给mairoot文件夹的访问权限增大，允许普通用户操作。



一切操作完成，再次运行脚本，邮件就可以发送成功。