QTP Script to read mails from inbox of outlook application-VB Script to read mails from inbox of outlook application

QTP Script to read mails from inbox of outlook application

Set a = CreateObject("Outlook.Application")

Set b = a.GetNameSpace("MAPI")

Set c = b.GetDefaultFolder(6)

For each item in C.Items

if item.unread then

msgbox item.body

End if

Next