Hi
Till send,before code has works for you
Whatever the page you have created for compose should use for clicking
compose ,to,body and send and also try to add one more property to the send
description as we will have two send buttons will be there in compose page
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
On 04-May-2013 12:35 AM, "Rob W" <[email protected]> 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]"
> 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.
>
>
>
--
--
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.
