Login Gmail with QTP

1. Enter Username Password in edit boxes 
2. Press Enter
3. After the page load, check if Gmail link exist

Function Name(Parameters)

GmailLogin = False

With Browser("title:=Gmail.*").Page("micclass:=Page")

If  .WebEdit("html id:=Email").Exist(0) Then

            .WebEdit("html id:=Email").Set sUserName   

            .WebEdit("html id:=Passwd").SetSecure sPassword   

            .WebButton("name:=Sign in").Click       

            .Sync

End If

'Check for Link Inbox(xyz)

          If  .Link("innertext:=Inbox.*").Exist(15) Then GMailLogin = True

    End With

End Function