QTP測試Yahoo郵箱

以前寫的一個用QTP登入Yahoo郵箱查收郵件的指令碼，現在Yahoo的介面設計可能已經更改了，所以未必能跑通指令碼，僅供參考：

 

 

' 啟動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("雅虎郵箱 - 全球郵箱第一品牌").Page("雅虎郵箱").WebEdit("login").Set  UserName

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

Browser("雅虎郵箱 - 全球郵箱第一品牌").Page("雅虎郵箱").WebButton("登入").Click

' 接收郵件,開啟郵件列表

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

End Function

 

' 在郵件列表中查詢指定發件人的指定主題的郵件，如果找到則點選進入

Function GetMail( sender , subject )

Set EmailList = Browser("雅虎郵箱 - 全球郵箱第一品牌").Page("Yahoo!電郵").WebTable("郵件列表")

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 micDone,"Find Mail","Find Mail Succeed!"

                     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