How to delete particular mails in Gmail using QTP

[rajkumarsm]

Hi, Need a script to delete particular mails from gmail using QTP.
Im using QTP 10, IE7.

Sample code: But it is not working properly. Thanks in advance.

Code:

For i = 1 to 10 A = Browser("Inbox.*").Page("Inbox.*").WebTable("Click to teach Gmail this").GetCellData(i,5) Expected = " me" Actual = Split(A,",") 'Print Actual(1) If Expected = Actual(1) Then 'print "Passed" Set B = Browser("Inbox.*").Page("Inbox.*").WebTable("Click to teach Gmail this").ChildItem(i,1,"WebElement",0) B.Set "ON" 'Browser("Inbox.*").Page("Inbox.*").webelement("micclass:=WebElement","class:=T-Jo-auh","height:=15","index:=0").click 'Browser("Inbox.*").Page("Inbox.*").webelement("class:=T-Jo-auh","index:=1").click Else print "Failed" End If Next

[rajkumarsm]

The below code is working perfectly.

Code:

Expected = "Raj" For i=0 to 10 Actual = Browser("Browser").Page("Page").WebTable("WebTable").GetCellData(i,5) ActualSplit = Split(Actual,", ") 'print Actualsplit(0) If Expected = Actualsplit(0) Then 'print "expected=actual" Set DP = Description.Create DP("micclass").Value = "WebElement" DP("class").Value ="T-Jo-auh" DP("html tag").Value = "DIV" Set DPChkBox = Browser("Browser").Page("Page").childobjects(DP) With DPChkBox print DPChkBox.Count DPChkBox(i).Click End With Set Mouse = CreateObject("Mercury.DeviceReplay") x=Browser("Browser").Page("Page").WebElement("Delete").GetROProperty("abs_x") y=Browser("Browser").Page("Page").WebElement("Delete").GetROProperty("abs_y") Mouse.MouseMove x+5,y+5 Mouse.MouseClick x+5,y+5,LEFT_MOUSE_BUTTON Else print "expected<>actual" End If Next