Как прикрепить файл к письму?

[micaell]

Нашёл вот такой исходник! Работает, но не пойму как прикрепить файл!

procedure TForm1.Button4Click(Sender: TObject); 
begin 
   SMTP.Host:='mail.58r.ru'; // адрес почтового сервера 
   SMTP.Port:=25; // порт по которому будет осуществляться подключение 
   SMTP.Username:='test+58r.ru'; // логин пользователя 
   SMTP.Password:='12345666'; // пароль пользователя 
   SMTP.AuthenticationType:=atLogin; // тип подключения к серверу - с авторизацией 
   with IdMessage do 
      begin 
        Body.Assign(Memo1.Lines); // передача данных из memo в компонент IdMessage, для последующей отправки 
        From.Text := 'test@58r.ru'; // майл отправителя письма 
        Recipients.EMailAddresses := 'test@58r.ru'; // майл получателя письма 
        Subject := 'Programmersclub.ru'; // тема письма 

        end; 

      SMTP.Connect; // соединение с почтовым сервером 
         try 
      showmessage('Произошло подключение к серверу'); // сообщение о удачном подключении к серверу 
      SMTP.Send(IdMessage); // отправка письма на сервер 
         finally 
           SMTP.Disconnect; // разрыв соединения 
         end; end;

[hacknet]

открываем файл

procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute
 then Edit1.Text:=OpenDialog1.FileName;
end;

загружаем 

if FileExists(Edit1.Text)
 then TIdAttachment.Create(MailMessage.MessageParts,Edit1.Text);

[IliaIT]

Тоже нашёл эту программу. вот только не понял как получать вложения письма...

вод код получения

 POP3.Host:='192.168.220.99'; // адресс почтового сервера
 POP3.Port:=110;           // порт по которому будет осуществляться подключение
 POP3.Username:='tea@vod.mar.ru'; // Логин пользователя
 POP3.Password:='12345666';   // пароль пользователя
 IdMessage.Clear; // очистка буфера для сообщения
 POP3.Connect; // подключение по протоколу POP3, по настрокам в компоненте IdPOP3, с именем POP3
 Memo1.Clear;   // очистка компонента memo для отображения текста письма.
 POP3.Retrieve(1,IdMessage);  // получение одного сообщения
 Memo1.Lines.AddStrings(IdMessage.Body); // передача сообщения из компонента IdMessage в memo

 // вывод в компоненты Label информации о сообщении.
 Label1.Caption := IdMessage.From.Text;
 Label2.Caption := IdMessage.Recipients.EmailAddresses;
 Label3.Caption := IdMessage.CCList.EMailAddresses;
 Label4.Caption := IdMessage.Subject;
 Label5.Caption := FormatDateTime('dd mmm yyyy hh:mm:ss', IdMessage.Date);
 Label6.Caption := IdMessage.ReceiptRecipient.Text;
 Label7.Caption := IdMessage.Organization;

 POP3.Delete(1); // удаление с сервера, полученного сообщения
 POP3.Disconnect;   // разрыв связи

[Квэнди]

Любые письма с вложениями есть Multipart соответственно надо идти по циклу по всем part-ам письма

[IliaIT]

А можно пример. я просто не совсем понял где это.
вот полистал компонент в помощи.
IdMessage. MessageParts
возможно это где то тут. но точно понять не могу. или я не туда полез?

[Квэнди]

Именно туда посомтрели.
там есть свойство count, соответственно можно пройти циклом.
А есть еще один метод: у класса IdMessage есть событие oncreateattachment

procedure (const AMsg: TIdMessage; const AHeaders: TIdStrings; var AAttachment: TIdAttachment)

думаю обрабатывая это событие будет гоаздо удобней)