|
#1
|
|||
|
|||
IdMessage.
Вообщем сама суть.
Сделать отправку писем. Должно выглядеть так: Фамилия Имя Отчество: Тест Тест Тест (Вводится в 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? И чтобы они принимали вид таблички. Последний раз редактировалось Admin, 20.05.2013 в 23:11. |