You have one thing wrong
You are setting mypage as Set mypage =Browser(browser_des).Page(page_des)
then why are you doing thing here
Set mypage=description.Create()
mypage("title").value ="Gmail - Compose Mail"
if you want to over ride about obeject you need to do this
you need to do this...
Set mypage2=description.Create()
mypage2("title").value ="Gmail - Compose Mail"
Set myNewpage =Browser(browser_des).Page(page_des2)
If myNewpage .webbutton(snd_des).Exist(5) Then
myNewpage .webbutton(snd_des).Click
End If
mypage is child object of browser and u need to have browser in front of
it..
On Friday, May 3, 2013 3:01:31 PM UTC-4, Rob W wrote:
>
> 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] <javascript:>"
> 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] <javascript:>"
> 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.
