Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Вниз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
Понятно, что имя контакта в письме и в адресной книге должны быть совершенно идентичны.
=========================================================
Неужели оскудела земля русская ?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.027 c