Delete Gmail email

[newqtp]

Code:

If Browser("name:=.*").page("Title:=.*").webtable("class:=Bs nH iY").Exist Then Browser("name:=.*").page("Title:=.*").webelement("Class:= T-I J-J5-Ji nX T-I-ax7 T-I-Js-Gs ar7").Click End If

this code goes through the successfully but doesn't click the trash icon. I have tried all possible delete method.

Any suggestion..I am going to try from inbox instead of open mail itself. But suggestion for deleting email from open mail is appreciated thanks.

[newqtp]

Here i am trying to delete from inbox 1st email.. But no luck

Code:

With Browser("title:=Gmail.*").Page("micclass:=Page") .WebTable("class:=F cf zt").ChildItem(1, 1, "WebCheckBox", 0).Set "ON" Setting.WebPackage("ReplayType") = 2 .WebElement("innertext:=Delete", "index:=0").Click ' gives error here Setting.WebPackage("ReplayType") = 1 End With

Any Suggestion will be appreciated.

---

I have also tried

Code:

If Browser("name:=Gmail.*").page("Title:=Gmail.*").webtable("class:=Bs nH iY").Exist Then Browser("name:=Gmail.*").page("Title:=Gmail.*").webtable("class:=Bs nH iY").Webtable("class:=cf gJ").Image("class:=hA T-I-J3").Click ' Click delete this message on the fly out 'below line of code doesn't work 'Browser("name:=Gmail.*").page("Title:=Gmail.*").webtable("class:=Bs nH iY").webelement("class:=cj", "outtertext:= Delete this message").Click End If

[newqtp]

Finally I got it worked, wanted to share so that others don't waste time in looking for solution.

Code:

'delete email Browser("name:=.*").page("Title:=.*").webelement("height:=29","index:=45").Highlight 'I had to find out the index and it was hit and trial to get the index number Browser("name:=.*").page("Title:=.*").webelement("height:=29","index:=45").click Set WShell = CreateObject("WScript.Shell") WShell.AppActivate "Browser" WShell.sendkeys("{ENTER}") Set WShell = Nothing

[ursgaurav]

Here is one more piece of code and it will surely work ,I have tried on IE7,IE8,IE9.There is only one change from the above code i have added the Webelement Class as ar9.* and index:=1.I hope this will help.

Code:

Browser("micclass:=Browser","name:=Your.*").page("Title:=.*").webelement("class:=ar9.*","index:=1").Highlight Browser("micclass:=Browser","name:=Your.*").page("Title:=.*").webelement("class:=ar9.*","index:=1").click Set WShell = CreateObject("WScript.Shell") WShell.AppActivate "Browser" WShell.sendkeys("{ENTER}") Set WShell = Nothing

[Staff]

Please ensure to include your code between [code] tags while asking or replying to questions. I have done this for you for this time.