VPF::Email - Форум программистов

Rommik

Дата 17.7.2006, 15:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 21.11.2005

Репутация: нет
Всего: нет

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

Код


       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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

http://forum.vingrad.ru/index.php?showtopi...%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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 21.11.2005

Репутация: нет
Всего: нет

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

Snowy

Дата 18.7.2006, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »