11-23-2009, 02:17 PM
Hello All,
I achieve the same one,
Thanks
Mahesh
I achieve the same one,
Code:
Dim NumberOfEdits, webElementToSearch
webElementToSearch="<B>Compose Mail</B>"
Set oDesc = Description.Create
oDesc("html tag").Value = "B"
oDesc("micclass").Value = "WebElement"
oDesc("innertext").Value = "Compose Mail"
oDesc("outertext").Value = "Compose Mail"
oDesc("innerhtml").Value = "Compose Mail"
oDesc("outerhtml").Value = "<B>Compose Mail</B>"
Set EditCollection = Browser("title:=Gmail").Page("title:=Gmail.*").ChildObjects(oDesc)
NumberOfEdits = EditCollection.Count
For i = 0 To NumberOfEdits - 1
If EditCollection(i).GetROProperty("outerhtml") = webElementToSearch Then
EditCollection(i).Click
End If
Next
Thanks
Mahesh