[login]

Не могу разобраться как прикрепить к письму изображения которое я вставил в компонент Image

Код Delphi

Код:

procedure TForm1.btn2Click(Sender: TObject);
begin
idsmtp1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='логин';
IdSMTP1.Password:='пароль';
IdMessage1.Body.Assign(img1.Picture);
IdMessage1.From.Text:='Почта откуда отправляю';
IdMessage1.Recipients.EMailAddresses:='почта куда отправляю';
IdMessage1.Subject:='тема';
 
IdSMTP1.Connect();
if IdSMTP1.Connected=True then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;

MAD: пользуемся тегами.
Подскажите что не так??
Прикреплять файл не вариант, нужно именно через Компонент Image

[lmikle]

копай в сторону TIdAttachment. Вроде у него был метод загрузки из потока.

[Mrak]

нужны компоненты "SMTP" и "IdMessage"

Код:

...
var AT: TIdAttachmentFile;   
begin
  with IdMessage1 do
  begin
    SMTP.Host:=Host;
    SMTP.Port:=Port;
    SMTP.Username:=Username;
    SMTP.Password:=Pas;

    Subject:='Картинка'; // тема письма
    body.Clear; 
    body.Text:='Вам картинка';
    if FileExists('C:\путь до файла') then
      AT:=TIdAttachmentFile.Create(MessageParts, 'C:\путь до файла');
    
    Recipients.EMailAddresses:=Aдрес получателя;
    ContentType:='multipart/mixed; charset=windows-1251'; // тип контента и кодировка
    ContentTransferEncoding:='8bit';

    // посыл
    try
      SMTP.Connect; // соединение с почтовым сервером
      SMTP.Send(IdMessage1); // отправка письма 
    finally
      SMTP.Disconnect;
      AT.free;
    end;
  end;
...