QTP测试Yahoo邮箱

webmail notifier添加邮箱帐号/密码后，来邮件及时提醒，点击即可打开邮件，无需登录邮箱界面，繁琐的输入帐号/密码，支持大部分邮箱（gmail/163/qq/sina/hotmail等）。qq邮箱的使用：登录qq，点击qq界面上的“qq邮箱”，就能进入qq邮箱界面，使用收发邮件等功能。（2） 填写相关注册信息，并首次登录（登录后会提示账户未激活），单击“发送激活邮件”，然后登录注册时填写的邮箱，单击邮件中的“激活”链接。

' 启动IE浏览器

SystemUtil.Run "IEXPLORE.EXE"

' 导航至Yahoo邮箱页面

Browser("version:=inter.*").Navigate "http://mail.cn.yahoo.com/"

'登录Yahoo邮箱

Login "User1" , "123456"

' 查找指定发件人的指定主题的邮件

GetMail "Chen Neng Ji" ,"Test"

' 获取邮件主体内容

Msgbox GetMailContent

' Functions.............................................................................................................................................................................................................

Function Login( UserName ,Password )

'登录Yahoo邮箱并接收邮件

browser("login").page("page").frame("main_8").webcheckbox("dgcourse:_ctl3:_ctl0").settoproperty "name",checkid。browser("login").page("page").frame("main_8").link("0901").click。browser("login").page("page").frame("main_8").link("[2]").settoproperty "text","["&nowpage&"]"。

Browser("雅虎邮箱 - 全球邮箱第一品牌").Page("雅虎邮箱").WebEdit("passwd").Set Password

中国雅虎停止邮箱服务后，不会删除你的 yourname@yahoo.com.cn/.cn 雅虎帐户，我们仍然可以登录其他雅虎服务，比如雅虎通，flickr 等。12月31日消息，根据阿里云邮箱登录也抬头信息显示，雅虎将于 2015 年 01 月01日00:00后全面终止后缀为 @yahoo.com.cn 与 @yahoo.cn 的邮箱接收邮件的服务雅虎邮箱中文版登陆，之后@aliyun.com的邮箱也将停止代收雅虎的邮件。 yahoo.com.cn邮箱可以通过完整的邮箱地址登录，也可以直接通过用户名（雅虎邮箱地址@前面的部分）登录。

' 接收邮件,打开邮件列表

Browser("雅虎邮箱 - 全球邮箱第一品牌").Page("Yahoo!电邮").WebButton("收信").Click

End Function

' 在邮件列表中查找指定发件人的指定主题的邮件，如果找到则点击进入

Function GetMail( sender , subject )

雅虎(美国)邮箱和微软outlook邮箱均有中文版页面，且服务器均在海外雅虎邮箱中文版登陆，可以正常收发gmail邮件。在8月19日中国邮箱服务器关闭后，如果用户仍未迁移的，@yahoo.com 邮箱账户会自动转向美国雅虎邮箱服务，但之前在中国邮箱服务器的归档邮件和联系人信息不会随之迁移。在8月19日中国邮箱服务器关闭后，如果用户仍未迁移的，@yahoo.com 邮箱账户会自动转向美国雅虎邮箱服务，但之前在中国邮箱服务器的归档邮件和联系人信息不会随之迁移。

For I =2 to EmailList.RowCount

Mail_sender = CSTR(EmailList.GetCellData(I,2))

Mail_subject = Trim(CSTR(EmailList.GetCellData(I,6)))

If (sender=Mail_sender) and (subject = Mail_subject )Then

'reporter.reportevent micpass,"ftp:ftpputfile function","ftp:file"&slocalfile&"upload successfully."。reporter.reportevent micfail,"ftp:ftpgetfile function","failed to open download file."。判断连接是否成功reporter.reportevent micfail, "testing", "连接失败"elsereporter.reportevent micpass, "testing", "连接成功"end ifif cnn.state<> 0 thenset rs=createobject("adodb.recordset") '。

EmailList.ChildItem(I,6,"Link",0).Click

Exit For

End If

Next

End Function

' 获取邮件主体内容

Function GetMailContent

GetMailContent = Browser("雅虎邮箱 - 全球邮箱第一品牌").Page("Yahoo!电邮").WebElement("邮件").WebElement("邮件主体内容").GetROProperty("innertext")

End Function

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/tongxinshuyu/article-113952-1.html