Hi team, does anybody no why I am getting this error? object doesn't
support this property or method
Here is my code:
'Set mybrowser = Browser("name:= Gmail: Email from Google")
systemutil.Run("http://www.gmail.com";)
browser_des("name").value = "Gmail: Email from Google"
If Browser(browser_des).Exist(10) Then
print "Browser is present"
else
print "Browser is NOT present"
End If
Set page_des = description.Create()
page_des("title").value = "Gmail: Email from Google"
If Page(page_des).Exist(10) Then
print "Page is present"
else
print "Page is NOT present"
End If
Set mypage =Browser(browser_des).Page(page_des)
Set webedt_des = description.Create()
webedt_des("name").value = "Email"
If mypage.webedit(webedt_des).Exist(8) Then
mypage.webedit(webedt_des).set "[email protected]"
else
print "Web Edit not Present"
End If
webedt_des("name").value = "Passwd"
If mypage.webedit(webedt_des).Exist(7) Then
mypage.webedit(webedt_des).set "bluefalcon45"
else
print "Web Edit not Present"
End If
Set logb_des = description.Create()
logb_des("name").value = "Sign in"
If mypage.webbutton(logb_des).Exist(5) Then
mypage.webbutton(logb_des).Click
End If
Set cmpml_des = description.Create()
cmpml_des("name").value = "Compose Mail"
If mypage.link(cmpml_des).Exist(5) Then
mypage.link(cmpml_des).Click
End If
Set to1_des = description.Create()
to1_des("name").value = "to"
If mypage.webedit(to1_des).Exist(8) Then
mypage.webedit(to1_des).Set "[email protected]"
End If
Set subj_des = description.Create()
subj_des("name").value = "subject"
If mypage.webedit(subj_des).Exist(5) Then
mypage.webedit(subj_des).Set "Testing Descriptive Programming"
End If
Set bdy_des = description.Create()
bdy_des("name").value = "body"
If mypage.webedit(bdy_des).Exist(5) Then
mypage.webedit(bdy_des).Set "I am creating VBScript Code!"
End If
Set snd_des = description.Create()
snd_des("name").value ="Send"
Set mypage=description.Create()
mypage("title").value ="Gmail - Compose Mail"
If mypage.webbutton(snd_des).Exist(5) Then (The error happens on this
line)
mypage.webbutton(snd_des).Click
End If
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
