Microsft Outlook Email and QTP

[siri]

Hi Sreekanth ,

When i am trying to use ur code

Code:

Set olApp = CreateObject("Microsoft.Outlook")
Set olns = olApp.GetNameSpace("MAPI")
Set objFolder = olns.GetDefaultFolder(2)
For each item in objFolder.Items
    If item.Unread Then
        msgbox item.body
    EndIf
Next

Error :Expected EndIf statement is poping up on my qtp screen