Hi kamakshi...

In your code,
Code:
Set fldr = olNS.GetSharedDefaultFolder(olFoldersSupport, Mailbox) .Folders("Inbox")
what is Mailbox ? Have you declared it anywhere ? Or, is it supposed to be in double quotes ?
Code:
Set fldr = olNS.GetSharedDefaultFolder(olFoldersSupport, "Mailbox") .Folders("Inbox")
Good luck..