[alexeysms]

Пересмотрел весь форум, помогите.
Загружаю файл на винт, а как теперь вытащить вложенный файл из тела письма? Delphi 2007.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdPop31.Connect;
  if IdPop31.connected then
   begin
    if IdPop31.CheckMessages<>0 then
      begin
        IdMessage1.Clear;
        IdPop31.Retrieve(1,IdMessage1);
        Memo1.Lines:=IdMessage1.Body;
        Label1.Caption:=IdMessage1.From.Address;
        Label2.Caption:=IdMessage1.Subject;
        IdMessage1.SaveToFile('c:\test_ppp.txt');
        IdPop31.Delete(1);
      end;
    IdPop31.Disconnect;
   end;
end;

Admin: Пользуемся тегами!

Заранее спасибо.