QTP中怎么测试邮件激活？

xiangrun9692

正在测试一个用户注册的功能，注册后会发送一封邮件到注册的邮箱，完了需要用户到邮箱查看，通过一个链接激活后，才算注册成功，这个功能用QTP能做吗？若能，怎么做呢？
请教各位了！

TIB

可下载个JMail组件，然后在QTP中连接邮箱，接收邮件，再分析邮件内容，解析出链接来，然后发送WEB页面请求该链接的URL

附JMail接收邮件的脚本：
Set pop3 = CreateObject("JMail.POP3")
pop3.Connect "xxx","xxx","pop.126.com"

Print  "邮件总数：" & pop3.Count
Set msg = pop3.Messages.Item(1)
Print msg.Subject
Print msg.FromName
Print msg.Body

Set pop3 = Nothing