Receipient
Private Sub CommandButton1_Click() On Error GoTo On_Error Call ResolveName Exiting: Exit SubOn_Error: MsgBox "error=" & Err.Number & " " & Err.Description Resume Exiting End End SubSub ResolveName() Dim myNamespace As Outlook.NameSpace Dim myRecipient As Outlook.Recipient Dim CalendarFolder As Outlook.Folder Set myNamespace = Application.GetNamespace("MAPI") Set myRecipient = myNamespace.CreateRecipient("Thembani Nxumalo") myRecipient.Resolve If myRecipient.Resolved Then Call ShowCalendar(myNamespace, myRecipient) End IfEnd SubSub ShowCalendar(myNamespace, myRecipient) Dim CalendarFolder As Outlook.Folder Set CalendarFolder = myNamespace.GetSharedDefaultFolder _ (myRecipient, olFolderCalendar) CalendarFolder.DisplayEnd Sub