QTP Code to check received emails in outlook

[Saket]

Try this

Code:

Set OlApp = CreateObject("Outlook.Application")
Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)

Set InboxItems = Inbox.Items

For Each Mail In InboxItems
    If Mail.UnRead Then
    ...
    End If
Next

hope this helps