01-21-2013, 04:27 AM
Code:
sLink=Browser("opentitle:=Gmail.*").Page("title:=Inbox.*").Link("name:= Inbox.*").GetROProperty("innertext")
iEmails = Split(sLink, " ")(1) 'have total number of unread email count as (3)
iEmails = Replace(iEmails, "(", "") 'this statement replace first ( to blank, now iEmails have partial number as 3)
iEmails = Replace(iEmails, ")", "") 'replace ) to blank space statement as 3
Msgbox "You Have " & iEmails & "unread mails(s)"
I hope this work out for.