How to get list of Senders Email Ids/Email Address of all unread emails in Outlook Inbox using QTP.

Qtp Script to get list of Senders Email Ids/Email Address of all unread emails in Outlook Inbox.

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).SenderEmailAddress & vbCrLf

end if

next