Microsft Outlook Email and QTP

[sreekanth chilam]

Hi Siri,

Try with the below.

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