See here http://www.slipstick.com/developer/w...tlook-folders/

"To access a shared folder in another user's Exchange server mailbox, you need to use GetSharedDefaultFolder to reference the mailbox, after resolving the address to the folder.

You can use the mailbox owner's display name, alias, or email address when resolving the recipient."

Dim NS As Outlook.NameSpace
Dim objOwner As Outlook.Recipient
 
Set NS = Application.GetNamespace("MAPI")
Set objOwner = NS.CreateRecipient("maryc")
    objOwner.Resolve
If objOwner.Resolved Then
    'MsgBox objOwner.Name
    Set newCalFolder = NS.GetSharedDefaultFolder(objOwner, olFolderCalendar)
End If