Как узнать отправителя письма в Outlook

[МоКом]

Я знаю как получить имя отправителя

...
Set new_mail = Item
msgbox("Имя отправителя: " + new_mail.SenderName)
...

а как получить электронный адрес отправителя? (в объектной модели не могу найти соответсвующего свойства)

[Gloom]

В объектной модели такого свойства и нет. Надо MAPI юзать...
Я в своё время так получал:

Код: Выделить всё

Public Function GetEMail(strItem As String) As String
    Dim objMAPISession As New MAPI.Session
    Dim objAdrList As MAPI.AddressList
   
    objMAPISession.Logon ShowDialog:=False, NewSession:=False
    Set objAdrList = objMAPISession.AddressLists("Глобальный список адресов")
    GetEMail = objAdrList.AddressEntries(strItem).Fields(972947486)
End Function

[МоКом]

попробуй вот это

Item.SenderEmailAddress

для офиса 2003 работает