Вообщем сама суть.
Сделать отправку писем.
Должно выглядеть так:
Фамилия Имя Отчество:
Тест Тест Тест (Вводится в Edit)
Контактный номер:
000000000 (Вводится в Edit)
Заказ:
Наименование (в лист боксе1) 000 (в лист боксе2) 00 (в лист боксе3)
Вот мой код отправления Edit ов, без лист боксов.
Код:
procedure TForm6.Button1Click(Sender: TObject);
var i:integer;
begin
idMessage1.Body.Text:='Фамилия Имя Отчество:';
idMessage1.Body.Add(Edit1.text);
idMessage1.Body.Text:='Контактный номер:';
idMessage1.Body.Add(Edit2.text);
idMessage1.Body.Text:='Заказ:';
idMessage1.Body.Add(Добавление всех трёх лист боксов, чтобы получилось что-то вроде таблички.);
idMessage1.From.Text:='db6e@yandex.ru';
idMessage1.Recipients.EMailAddresses:='avtservis2013@ya.ru';
idMessage1.Subject:='Заказ клиента';
idSmtp1.Connect();
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
end;
Админ: пользуемся тегами для оформления кода!
Сам вопрос:
Как сделать чтобы отправлялись ListBox? И чтобы они принимали вид таблички.