В объектной модели Outlook можно использовать следующую последовательность действий:
Recipient.AddressEntry.GetContact()
Класс ContactItem предоставляет все необходимые свойства, которые вас интересуют.
Чтобы получить экземпляр класса Recipient
, вам необходимо использовать метод CreateRecipient класса Namespace
. Например, пример макроса VBA, который показывает, как использовать метод:
Sub 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("Eugene Astafiev") ' or email address
myRecipient.Resolve
If myRecipient.Resolved Then
Call ShowCalendar(myNamespace, myRecipient)
End If
End Sub
Sub ShowCalendar(myNamespace, myRecipient)
Dim CalendarFolder As Folder
Set CalendarFolder = _
myNamespace.GetSharedDefaultFolder _
(myRecipient, olFolderCalendar)
CalendarFolder.Display
End Sub