как найти сообщения о доставке в базе

[-=SEGA=-]

Код:
Notes:=CreateOleObject('Lotus.NotesSession');
Notes.Initialize('******');
MailServer:=Notes.GetEnvironmentString('MailServer',True);
DBDirectory := Notes.GetDbDirectory('strMailServer');
MailBase := DBDirectory.OpenMailDatabase;
dc := MailBase.AllDocuments;

NotesDatabase.AllDocuments почем-то не возвращает писем Delivered, то есть писем от MailRouter, а мне только они и нужны, КАК БЫТЬ?

 

[Ronchik]

Для: -=SEGA=-
перенастроить сервер что-бы он перед отправкой ложил все письма в другую БД и обрабатывать их агентом.....по другому не получиться т.к. ваш код не успевает поймать эти сообщения ...они успевают отправиться

 

[-=SEGA=-]

Для: -=SEGA=-
перенастроить сервер что-бы он перед отправкой ложил все письма в другую БД и обрабатывать их агентом.....по другому не получиться т.к. ваш код не успевает поймать эти сообщения ...они успевают отправиться

так ведь мне нужно получить не отправленные сообщения я пришедшие _уведомления о доставке_, сообщения типа - Mail Router - Delivered: blah.
Как оказалось, мой код видит эти сообщения но как обычные письма, просто в теме не появляется слово Delivered. Я не знаю по какому принципу отличать что это именно уведомление о доставке. Может есть какой-либо параметр, по которому можно однозначно определить уведомление...

 

[Ronchik]

<!--QuoteBegin--=SEGA=-+2:10:2007, 10:16 -->
<span class="vbquote">(-=SEGA=- @ 2:10:2007, 10:16 )</span><!--QuoteEBegin-->Как оказалось, мой код видит эти сообщения но как обычные письма

[snapback]80276" rel="nofollow" target="_blank[/snapback]​

[/quote]
так и есть

<!--QuoteBegin--=SEGA=-+2:10:2007, 10:16 -->
<span class="vbquote">(-=SEGA=- @ 2:10:2007, 10:16 )</span><!--QuoteEBegin-->Я не знаю по какому принципу отличать что это именно уведомление о доставке

[snapback]80276" rel="nofollow" target="_blank[/snapback]​

[/quote]
смотрите дизайн почтовой БД там можно много интересного обнаружить.....
<!--QuoteBegin--=SEGA=-+2:10:2007, 10:16 -->
<span class="vbquote">(-=SEGA=- @ 2:10:2007, 10:16 )</span><!--QuoteEBegin-->Может есть какой-либо параметр, по которому можно однозначно определить уведомление...

[snapback]80276" rel="nofollow" target="_blank[/snapback]​

[/quote]
так сразу сказать не могу просто не помню уже

 

[-=SEGA=-]

Ronchk спс большое, полазил в дизайне обнаружил что в уведомлениях поле From всегда ранво "Delivery Report".
Спасла вот эта строчка:
dc := LNSearch(Notes,MailBase,'preved','form = "Delivery Report"');

 

[morpheus]

Для: -=SEGA=-
На всякий случай

dc := LNSearch(Notes,MailBase,'preved','@lowercase(form) = "delivery report"');

 

[Constantin A Chervonenko]

Код:
Notes:=CreateOleObject('Lotus.NotesSession');
Notes.Initialize('******');
MailServer:=Notes.GetEnvironmentString('MailServer',True);
DBDirectory := Notes.GetDbDirectory('strMailServer');
MailBase := DBDirectory.OpenMailDatabase;
dc := MailBase.AllDocuments;

NotesDatabase.AllDocuments почем-то не возвращает писем Delivered, то есть писем от MailRouter, а мне только они и нужны, КАК БЫТЬ?

У вас сервер НЕстандартно сконфигурирован? ПЯ обычно лежат в каталоге mail.
Хотя для OpenMailDatabase директория по барабану, но может она хоть существовать должна?

 

[-=SEGA=-]

Для: -=SEGA=-
На всякий случай

dc := LNSearch(Notes,MailBase,'preved','@lowercase(form) = "delivery report"');

c lowercase не работает, без него все отлично