Gmail: Compose Mail Functionality

[kishore.gkk]

I never thought I have to struggle 12 hrs to automate ‘compose mail’ functionality in gmail. But still I am unable to execute it successfully. I have been struggling to identify the objects of ‘compose mail link”, “To text box”, “subject text box”, “send button”. I can understand it is a simple issue but in real I am struggling,

The code i am using.
'*****************************************************

Code:

If Browser("title:=Gmail.*").Page("title:=Gmail.*").WebElement("innertext:=Compose Mail", "html id:=:rd", "html tag:=B").Exist Then Browser("title:=Gmail.*").Page("title:=Gmail.*").WebElement("innertext:=Compose Mail", "html id:=:rd", "html tag:=B").Click -9999, -9999 Browser("title:=Gmail.*").Page("title:=Gmail.*").Sync If Browser("title:=Gmail.*").Page("title:=Gmail.*").WebEdit("name:=to", "class:=dK nr l1", "rows:=2").Exist Then Browser("title:=Gmail.*").Page("title:=Gmail.*").WebEdit("name:=to", "class:=dK nr l1", "rows:=2").Set "<xyz@gmail.com> " If Browser("title:=Gmail.*").Page("title:=Gmail.*").WebEdit("name:=subject").Exist Then Browser("title:=Gmail.*").Page("title:=Gmail.*").WebEdit("name:=subject").Set "hi" If Browser("title:=Gmail.*").Page("title:=Gmail.*").WebButton("name:=Send").Exist Then Browser("title:=Gmail.*").Page("title:=Gmail.*").WebButton("name:=Send").Click -9999, -9999 Browser("title:=Gmail.*").Page("title:=Gmail.*").Sync Else MsgBox( "Send button Not found") End If Else MsgBox( " Subject text box Not found") End If Else MsgBox( "To text box not found") End if Else MsgBox( "Compose Mail link not found") End If

'***************************************************
In some runs, some of the objects are being identified by QTP and in the next run same objects are not being identified.

I thought i would use Object repositary to store the objects and get them identified. But the above mentioned objects are lying under frames whose name starts with 'c'. So i cant use c.* for all the frames.

Note: Before you suggest any code, please run it once on gmail and if it is passing then only put down here. Otherwise i end up loosing more time in implementing your code.

In some posts i read use the below to click on compose mail

Code:

Browser("title:=Gmail.*").WebElement("html id:=:rd").Click

but i didn't work

Thanks,
kishore

[kishore.gkk]

Here is the code which is working. Thanks to Anshoo arora the moderator.

Code:

With Browser("title:=Gmail.*").Page("title:=Gmail.*") If .WebElement("innertext:=Compose Mail", "html tag:=SPAN").Exist(10) Then .WebElement("innertext:=Compose Mail", "html tag:=SPAN").Click If .WebEdit("name:=to").Exist(10) Then .WebEdit("name:=to").Set "" If .WebEdit("name:=subject").Exist(10) Then .WebEdit("name:=subject").Set "hi" Setting.WebPackage("ReplayType") = 2 If .WebElement("innertext:=Send", "html tag:=B", "index:=0").Exist(10) Then .WebElement("innertext:=Send", "html tag:=B", "index:=0").Click .Sync Else MsgBox( "Send button Not found") End If Setting.WebPackage("ReplayType") = 1 Else MsgBox( "Subject text box Not found") End If Else MsgBox( "To text box not found") End if Else MsgBox( "Compose Mail link not found") End If End With

[adityapant27]

But why we use Exist(10)... I dont understand it.. please let me know/
Thanks
Adi

[elango87]

Exist is used to check if the object is present in the screen and do the operations on the object.

for example, ,

Code:

Browser("").Page("").Image("").Exist(5)

If we use the code above QTP will wait a maximum of 5 seconds for the Image("") object to appear. If it appears, it will execute the next line of code.

If the object doesn't appear with in 5 seconds, the step will fail.

Hope you got it.

Thanks,
Elango

[newqtp]

I am trying to delete email from gmail account and I am stuck. I have tried different combination but no luck.

Code:

If Browser("name:=Your CarMax validation code.*").page("Title:=Your CarMax validation code.*").webtable("class:=Bs nH iY").Exist Then Browser("name:=Your CarMax validation code.*").page("Title:=Your CarMax validation code.*").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 should click the delete this message but not clicking
'giving error as too many web element.

Code:

'Browser("name:=Your CarMax validation code.*").page("Title:=Your CarMax validation code.*").webtable("class:=Bs nH iY").webelement("class:=cj", "outtertext:= Delete this message").Click End If

---

Finally I got it work by below line of text
1) read the email you want to delete by getrowtextcell("Gmail")

2) Now click the trash can on top bar.

Code:

Browser("name:=.*").page("Title:=.*").webelement("class:=T-I J-J5-Ji nX T-I-ax7 T-I-Js-Gs ar7").Submit

---

But I would like to delete by fly out "delete this message" option as above code delete all the mails which are grouped by that text.

[newqtp]

Now working code doesn't work, I am back to square 1.. Need help