Скачивание вложений.

[vovken1997]

Всем привет.
Я пишу свой менеджер почты. Пока что он умеет только отправлять и принимать письма. Мне надо из входящих писем, в которых есть вложенные файлы, скачать вложения. Как это сделать???

Вот мой код, простого чтения письма с мейла:

idPOP31.Username:='******@mail.ru';
idPOP31.Password:='******';
idPOP31.Host:='pop.mail.ru';
idPOP31.Connect();
if idPOP31.Connected then
begin
    msg:=idPOP31.CheckMessages;
    Label1.Caption:='У вас '+IntToStr(msg)+' сообщений';
    idPOP31.Retrieve(msg,idMessage1);
    Memo1.Text:=idMessage1.Body.Text;
    idPOP31.Disconnect;
end;

[vovken1997]

Блин, что , ни кто не может помочь???
Вот немного попробывал, но как то не очень всё продвинулось:

idPOP31.Username:='******@mail.ru';
idPOP31.Password:='******';
idPOP31.Host:='pop.mail.ru';
idPOP31.Connect();
if idPOP31.Connected then
begin
    msg:=idPOP31.CheckMessages;
    Label1.Caption:='У вас '+IntToStr(msg)+' сообщений';
    idPOP31.Retrieve(msg,idMessage1);
    Memo1.Text:=idMessage1.Body.Text;
    //Двумя этими строчками пробывал, но ни в какую
    //TIdAttachment(idMessage1.MessageParts.SaveToFile('1.moy'));
    //TIdAttachmentFile(idMessage1.MessageParts.Items[1]).SaveToFile('C:\1.moy');
    idPOP31.Disconnect;
end;

Пожайлуста, помогите! Чё я не так делаю???

[vovken1997]

Что, вообще никто не знает что ли???
Помогите ...

[vovken1997]

Неужели ни кто не может подсказать???
PROграммисты, помогите пожайлуста...

[eoln]

var msg,j:integer;
begin
  idPOP31.Username:='мыло@mail.ru';
  idPOP31.Password:='пароль';
  idPOP31.Host:='pop.mail.ru';
  idPOP31.Connect();
  if not idPOP31.Connected then exit;
  msg:=idPOP31.CheckMessages;
  idPOP31.Retrieve(msg,idMessage1);
  for j :=0 to idMessage1.MessageParts.Count-1 do
    if (idMessage1.MessageParts.Items[j] is TidAttachmentFile) then
      TidAttachmentFile(idMessage1.MessageParts.Items[j]).SaveToFile(
        'c:\temp\'+idMessage1.MessageParts.Items[j].FileName);
  idPOP31.Disconnect;
end;

Для старых инди TidAttachment
Добавить в uses idAttachmentFile / idAttachment
Вроде работает, но лучше потестировать... и обязательно добавить исключения (try...)

[vovken1997]

Спасибо, завтро протестирую!!!