How to click only unread mails in Gmail using vb script

[RPS_QTP]

im getting "General run error"

[newqtp]

Hi, I am also on the same boat just want to read only unread email, I can read by passing the subject text but I wan QTP to find unread email and read it, Please help me to think in that direction..

Below code read email by passing text as validation code which is already read by qtp, i can change the text to read unread mail but thats not good approach.

Code:

iRows = Browser("opentitle:=Gmail.*").Page("micclass:=Page").WebTable("class:=F cf zt").GetROProperty("rows") 'get total number rows in webtable
msgbox iRows

' reading email using the cell row text as Validation code
If  Browser("opentitle:=Gmail.*").Page("micclass:=Page").WebTable("class:=F cf zt").Exist   Then
    iRow =  Browser("opentitle:=Gmail.*").Page("micclass:=Page").WebTable("class:=F cf zt").GetRowWithCellText("validation code")
    msgbox "Row number in webtable is " & iRow & " for passed text as validation codefrom email subject"
        With Browser("opentitle:=Gmail.*").Page("micclass:=Page").WebTable("class:=F cf zt")
            Setting.WebPackage("ReplayType") = 2   '2-Runs mouse operations using the mouse
                .ChildItem(iRow, 5, "WebElement", 0).Click
            Setting.WebPackage("ReplayType") = 1 '1-Runs mouse operations using browser events
                Reporter.ReportEvent micPass,"Check Mail","Email is found and read"
            End With
End If