Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Email

Автор: Rommik 17.7.2006, 15:14

Мне надо сделать обрабоку емейл. Использую :

Код


       begin
                pop:=TIdPOP3.Create(nil);
                pop.Host:=Host;
                pop.Port:=Port;
                pop.Username:=User;
                pop.Password:=Password;
                try
                        pop.Connect(60000);
                        mc:=pop.CheckMessages;
                except
                        mc := 0;
                        ShowMessage('No connect');
                end;
                        while mc>0 do
                                begin
                                        m:=TIdMessage.Create(pop);
                                        try
                                                if mfRecent in m.Flags then
                                                        begin
                                                        pop.Retrieve(mc,m);
                                                        ProcessMessage(m);
                                                        end;
                                        finally
                                                m.Free;
                                                dec(mc);
                                        end;
                                end;
                pop.Free;
        end;

Как мне читать сообщения, принятые после последнего подключения к серверу?
if mfRecent in m.Flags then почему-то не работает.
Может я его не там ставлю????????

Автор: Snowy 17.7.2006, 15:29

http://forum.vingrad.ru/index.php?showtopic=85072&hl=%D0%9F%D0%BE%D0%BB%D1%83%D1%87%D0%B5%D0%BD%D0%B8%D0%B5

Добавлено @ 15:38

Цитата(Rommik @ 17.7.2006, 15:14

)

Может я его не там ставлю????????

Иссесно. Флаги пустые, т.к. IdMessage только создано и не имеет ассоциации с сообщением на сервере.
Сначала нужно сделать RetrieveHeader? чтобы принять параметры сообщения.
Но далеко не факт, что POP3 сервер эти флаги ставит.
Я бы сказал, что это скорее исключение.
Большая часть флагов предназначена для TIdMailBox и IMAP4 протокола.
POP3 сервера не вносят измененения в заголовок сообщения.

Автор: Rommik 17.7.2006, 17:33

А можно как то удалить сообщение после просмотра??

Автор: Snowy 18.7.2006, 10:14

http://forum.vingrad.ru/index.php?showtopic=85107