|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Отправка сообщения по Почте
Не могу разобраться как прикрепить к письму изображения которое я вставил в компонент 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; Подскажите что не так?? Прикреплять файл не вариант, нужно именно через Компонент Image Последний раз редактировалось M.A.D.M.A.N., 14.08.2014 в 17:43. |