Ответить на сообщение

Вы отвечаете на сообщение:

ник: Andrew
Подскажите пожайлуста как мне програмно из входящего письма вытащить адресс отправителя? Я использую данный подход:

Set objNameSpace = objOutLook.GetNamespace("MAPI")

novoe_pismo:
Set objOrdersFolder = objNameSpace.Folders("Ëè÷íûå ïàïêè").Folders("Âõîäÿùèå")

lngKol_Message = objOrdersFolder.Items.Count

If lngKol_Message > 0 Then
Set objItem = objOrdersFolder.Items(1)

Set objAtts = objItem.Attachments

Set objItem1 = objItem.Reply
Set objAtts1 = objItem1.Attachments
objAtts1.Add strBufAdr & "\Report.txt", olByValue, 1, "Report"
objItem1.Display
objItem1.Send

Ваше имя:
Пароль:

Цитировать: [quote][/quote]	Код: [code][/code]
Жирный: [b][/b]	Наклонный: [i][/i]
URL: [url][/url]

Сообщение:
	Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru
Прикрепить:

Для вставки смайлов в текст щелкните по значку.

Форумы HiProg.com - MS ACCESS, VBA, VB