Dim myOlApp As Outlook.Application
Set myOlApp = New Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim Appointment As Outlook.AppointmentItem
Dim ocalItems As Object
'Dim ocalItems As Outlook.Items
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("someone")
myRecipient.Resolve
If myRecipient.Resolved = True Then
Dim MyMapI As Outlook.MAPIFolder
Set MyMapI = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar)
MyMapI.Display
End If
Set Appointment = Nothing
Set ocalItems = Nothing
Set myNamespace = Nothing
Set myRecipient = Nothing
Set myOlApp = Nothing