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