| Цитата |
|---|
написал: она глобальная по компании |
отлично гуглится и это - адресная книга в этом случае в Exchange. Вы хоть с чего-то начните. А то в форуме по Excel задаете вопросы по Outlook без малейших наработок

oMail.Sender.GetExchangeUser - это пользователя Exchange. В этом объекте зашита вся информация о пользователе, в том числе имя, адрес и т.д. Смотрите по окну Locals или Watch.
Только не забудьте убедиться, что отправитель действительно отправил письмо через Exchange:
| Код |
|---|
If oMail.SenderEmailType = "EX" Then 'это отправили через Exchange
res = oMail.Sender.GetExchangeUser.Name
Else 'это отправили обычным методом
res = oMail.SendUsingAccount 'или oMail.SenderName - зависит от того, какая информация нужна
End If |