Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

Непрочитанные сообщения   Найти похожие ветки 

 
bulkas   (2005-01-12 00:58) [0]

Принимаю почту используя TIdPOP3.
Количество сообщений узнать могу IdPOP31.CheckMessages.
Но никак не получается определить количество непрочитанных сообщений.
Пытался использовать TIdMessageFlagsSet где впринципе есть значение mfSeen, указывающее прочитано сообщение или нет.
Но почему-то получается, что у меня все сообщения прочитаны.

Как быть?
Заранее спасибо.


 
aus   (2005-01-12 03:53) [1]

А разве POP3 допускает такой запрос-ответ (о прочитанных или непрочитанных сообщениях). Скорее всего нет. Т.е. методами TIdPOP3 вряд ли получится проверить.
Или я что-то не понял...


 
bulkas   (2005-01-12 04:00) [2]

а IMAP позволяет?


 
aus   (2005-01-12 04:10) [3]

Насчет позволяет - не знаю, но сервер-то какой протокол поддерживает? Или ему все равно?


 
bulkas   (2005-01-12 17:06) [4]

IMAP поддерживает, но все равно не получается считать флаги сообщений.


 
bulkas   (2005-01-12 18:05) [5]

Ладно, может есть у кго-нибудь ссылка на хелп для Indy?
Был бы вдвойне благодарен!


 
bulkas   (2005-01-12 21:58) [6]

Спасибо за помощь. в кавычках.
Для тех кому это понадобится вот рабочий пример:

procedure TForm1.Button2Click(Sender: TObject);
var
 f,MessCount, NoReadMessCount:Integer;
begin
 if IdIMAP41.Connected then IdIMAP41.Disconnect;
 IdIMAP41.Connect(10000);
 if IdIMAP41.Connected then
 begin
   IdIMAP41.SelectMailBox("INBOX");
   IdIMAP41.RetrieveAllEnvelopes(IdIMAP41.MailBox.MessageList);
   MessCount:=IdIMAP41.MailBox.MessageList.Count;
   NoReadMessCount:=0;
   for f:=1 to MessCount do if not IdIMAP41.CheckMsgSeen(f) then inc(NoReadMessCount);
 end;
 ShowMessage(IntToStr(NoReadMessCount));
end;


 
Eraser ©   (2005-01-12 22:16) [7]

bulkas
обыщи сайт http://www.indyproject.org/


 
Sicilla ©   (2005-01-14 05:39) [8]

Извини, bulkas, но у тебя есть пример как можно просмотреть количество писем на сервере почтовом? Очень надо, плиз.



Страницы: 1 вся ветка

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.034 c
14-1109429017
TUser
2005-02-26 17:43
2005.03.20
Форум по VBA


14-1108381037
boriskb
2005-02-14 14:37
2005.03.20
Любителям поплевать в сторону США


14-1109539200
saNat
2005-02-28 00:20
2005.03.20
Программирование PIC-микроконтроллеров


1-1110281018
zioza
2005-03-08 14:23
2005.03.20
Как сделать что бы при запуске особово файла запускалась моя прог


1-1109924444
webpauk
2005-03-04 11:20
2005.03.20
Редактор кода