Не могу разобраться как прикрепить к письму изображения которое я вставил в компонент 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