10-29-2012, 11:40 AM
Try below code
Code:
Set olapp = CreateObject("Outlook.Application")
Set olns = olapp.GetNameSpace("MAPI")
olns.logon
Set objfolder=olns.getdefaultfolder(6)
objfolder.display