Code:
'Login to gmail Account
Browser("opentitle:=Gmail.*").Page("title:=Gmail.*").WebEdit("name:=Email").Set "username"
Browser("opentitle:=Gmail.*").Page("title:=Gmail.*").WebEdit("name:=Passwd").Set "password"
Browser("opentitle:=Gmail.*").Page("title:=Gmail.*").WebButton("name:=Sign in").Click
Browser("opentitle:=Gmail.*").Page("title:=Inbox.*").Link("innertext:=Inbox.*").Click
Browser("title:=Gmail.*").Page("title:=Gmail.*").Sync
' Get unread emails count
sLink= Browser("opentitle:=Gmail.*").Page("title:=Inbox.*").Link("innertext:=Inbox.*").GetROProperty("innertext")
'msgbox sLink
If sLink = "Inbox" Then
iEmails = 0
Msgbox "Total Unread Email(s) " & iEmails & " No New email"
Exit Action
else
'Split unread emails count from Inbox(XX)
iEmails = Split(sLink, " ")(1) 'have total number of unread email count as (XX)
iEmails = Replace(iEmails, "(", "") ' this statement have partial number as XX)
iEmails = Replace(iEmails, ")", "") 'antoher replace ) to blank sapce statement as XX
Msgbox "Total Unread Email(s) " & iEmails
End If