How to get list of Mail Subject of all unread emails in Outlook Inbox using QTP.

Qtp Script to get list of all unread emails in Outlook Inbox with Mail Subject

Set a = CreateObject("Outlook.Application")

Set b = a.GetNameSpace("MAPI")

Set c = b.GetDefaultFolder(6)

for i=1 to c.items.count

if c.items(i).unread then

List = List & c.items(i).Subject & vbCrLf

end if

next