Как узнать адрес отправителя письма в Outlook 2000 с помощью Visual Basic

Нам не удалось найти универсальный ответ на этот вопрос.
Если, например, пришло новое письмо и мы хотим узнать адрес отправителя, можно написать следующий код в процедуре Application_NewMail():

Листинг 1.

 ' При поступлении нового письма  

 ' производится его обработка  

 Dim mailItems As Items  

 Dim mailmsg As MailItem  

 Dim Sender$, SenderEmail$  

   

 ' Набор писем из папки "Входящие"  

 Set mailItems = Application.Session._  

    GetDefaultFolder(olFolderInbox).Items  

 Set mailmsg = mailItems.GetLast ' выбираем последнее  

 Sender$ = mailmsg.SenderName

В этом случае мы прочитали имя отправителя (в строке From/Откуда).
Но как узнать его электронный адрес?
К сожалению, подходящего для этой цели свойства мы у объекта MailItem не обнаружили.

А вот если данный отправитель уже внесен в вашу адресную книгу, вы можете узнать его координаты. Это делается следующим образом:

Листинг 2.

 Dim repct As Recipient  'описание контакта в книге 

 ' создание объекта с именем отправителя  

 Set repct = itm.Recipients.Add (mailmsg.SenderName)  

 recpt.Resolve    'проверка — есть ли какой контакт в книге?  

 If recpt.Resolved Then  ' есть контакт  

   SenderEmail$ = recpt.AddressEntry.address  ' адрес E-mail!  

 End If

Понятно, что имена отправителей в письме и в адресной книге должны быть совершенно идентичны.