Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c