#DEFINE olFolderInbox 6

When another user gives you NO access to his mailbox and I try to go to his mailbox, how can I intercept the error i get (OLE IDispatch exception code 4096 from Microsoft Outlook). I use the following code:

oOutlook = CREATEOBJECT("Outlook.Application")
oNameSpace = oOutlook.GetNameSpace("MAPI")

oUser = oNameSpace.CreateRecipient("MICHAEL")

oInbox = oNameSpace.GetSharedDefaultFolder(oUser,olFolderInbox)

FOR EACH oInbox IN oInbox.Items && The error occurs here

endfor

Thanks in advance