|
很多应用中都有发送邮件通知的动作。
但是用QTP怎样检查呢?其实很简单,其实只需要找到个控件就可以了。
QTP支持VBScript的。大家稍有基础,就应该知道VB,VBScript,ASP等概念。
说到这里,想必不用我多少,很多人就明白了,找个aspmail或者jmail之类的,完全可以解决问题。
不要说检查是否收到特定邮件了,就是运行完脚本自动给自己发送一个邮件报告都不在话下。
代码示例如下。
------------------------
EmailUserName=账号
EmailUserPass=密码
EmailUserPOP= POP3服务器地址
Set POP3 = Server.CreateObject("JMail.POP3")
POP3.Connect EmailUserName,EmailUserPass,EmailUserPOP
POP3.DownloadHeaders
if POP3.Count=0 then
Response.end
end if
For I=1 To POP3.Count
Subject=POP3.Messages.Item(I).Subject
FromAddress=POP3.Messages.Item(I).From
FromName=POP3.Messages.Item(I).FromName
Response.write "<br>" & Subject '主题
Response.write "<br>" & FromAddress '发件人Email
Response.write "<br>" & FromName '发件人姓名
Response.write "<br>" & POP3.Messages.Item(I).Date '邮件到达服务器的时间
Next
POP3.Disconnect
贴一个jmail的教程。供参考吧。
http://www.ajiang.net/article/artview.asp?id=175 |
|