Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.047 c
4-1107884471
Фдуч
2005-02-08 20:41
2005.03.20
Что значит Port 60/64?


1-1109859927
mrAld
2005-03-03 17:25
2005.03.20
THTTPRIO - результат запроса


1-1109894253
Garfunkel
2005-03-04 02:57
2005.03.20
Зеркально перевернуть BitMap в TPaintBox e


1-1110102467
leonidus
2005-03-06 12:47
2005.03.20
Знатокам компонента VCLZIP


6-1106218936
Kirill
2005-01-20 14:02
2005.03.20
Декодировать MIME письмо





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский