Outlook

← →
VladimirC (2004-01-26 17:23) [0]

Как в Outlook через com добраться до адреса отправителя во входящих сообщениях.

← →
VMcL © (2004-01-26 17:28) [1]

В Outlook"е: Alt+F11, F2, "Application", F1.

← →
VladimirC (2004-01-26 17:39) [2]

Сайт delphi, поэтому огромная просьба откликнуться тех, кто реально это делал на delphi.

← →
VladimirC (2004-01-27 16:20) [3]

По адресу накопал.
http://microsoft.ru/offext/developers/advices/advice.aspx?id=50
===========================================================
Нам не удалось найти в общем случае ответ на этот вопрос. Например, пришло новое письмо и мы ходим узнать адрес отправителя. Можно написать такой код в процедуре Application_NewMail():

" При поступлении нового письма
" производится его обработка
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 мы не обнаружили.

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

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

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

Outlook Найти похожие ветки