Проверка почты на Delphi
Собственно, как организовать? делал через IDpop3:
pop3.connect;
POP3.Retrieve(1,IdMessage1);
IDmessage1.SaveToFile('C:\temp.html');
Pop3.Disconnect;
но в файл сохранятеся полный заголовок сообщения (кому, от кого, через кого и тд), без самого тела сообщения. Приму и другие варианты (:
pop3.connect;
POP3.Retrieve(1,IdMessage1);
IDmessage1.SaveToFile('C:\temp.html');
Pop3.Disconnect;
но в файл сохранятеся полный заголовок сообщения (кому, от кого, через кого и тд), без самого тела сообщения. Приму и другие варианты (:
IdMessage1.Body сохраняешь?
Цитата: arrjj
IdMessage1.Body сохраняешь?
в смысле?
если ты про IdMessage1.Body.savetofile, то файл пустой получается (видимо body пустое)
Версия Indy? Продебажить? Посмотреть свойства?
Цитата: Phodopus
Версия Indy? Продебажить? Посмотреть свойства?
7ой делфи -> 9я т.к. ничего поверх не устанавливал
а что там дебажить? боди не заполняется, pop3 получается только заголовок, причем полный. а что со свойствами? ничего не изменял
зы
другие сообщения читаются, а вот от некоторых отправителей - нет.
Проверь все IdMessage.MessageParts[] (количество - IdMessage.MessageParts.Count).
каунт=1
а как их проверить?
я вообще подозреваю что что-то с кодировкой, вот он и недополучает тело сообщения
а как их проверить?
я вообще подозреваю что что-то с кодировкой, вот он и недополучает тело сообщения
pop3.connect;
POP3.Retrieve(1,IdMessage1);
p:=IDMEssage1.MessageParts.Count;
for i:=0 to p-1 do
begin
TidText(idMessage1.MessageParts.Items).body.SaveToFile('C:\temp.html');
end;
Pop3.Disconnect;
теперь уже сообщение есть (:
upd
все отлично - сообщение получено и никаких проблем)
POP3.Retrieve(1,IdMessage1);
p:=IDMEssage1.MessageParts.Count;
for i:=0 to p-1 do
begin
TidText(idMessage1.MessageParts.Items).body.SaveToFile('C:\temp.html');
end;
Pop3.Disconnect;
теперь уже сообщение есть (:
upd
все отлично - сообщение получено и никаких проблем)
Лучше
а то в партсах там и аттачи и пр может быть.
Код:
for i:=0 to p-1 do
begin
if idMessage1.MessageParts.Items is TIdText then
TidText(idMessage1.MessageParts.Items).body.SaveToFile('C:\temp.html');
end;
begin
if idMessage1.MessageParts.Items is TIdText then
TidText(idMessage1.MessageParts.Items).body.SaveToFile('C:\temp.html');
end;
а то в партсах там и аттачи и пр может быть.
понятно, спасибо
Цитата: antiless
а что там дебажить? боди не заполняется, pop3 получается только заголовок, причем полный. а что со свойствами? ничего не изменял
то и означало что вышло, под дебагом посмотреть все свойства IdMessage в ран-тайм, в том числе и MessageParts бы увидел