|
#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. |
#2
|
||||
|
||||
Для начала возможно надо создать шаблон письма в фомате html,со всеми записями, отступами и таблицами, как оно должно выглядеть при получении у адресата, используя теги html разметки типа
Код HTML:
Используя его потом как образец, загнать это всё в тело письмотправителя Код:
... idMessage1.Body.Text:= '<html><head></head>'+ ... '<table><tr><td>' + лист бокс1.итемс.стрингс[1] + '</td><td>' + лист бокс1.итемс.стрингс[2] + '</td></tr></table>' + etc ... '</html>'; ... Код:
idMessage1.ContentType := 'text/html; charset=Windows-1251'; так вот и придётся подгонять ручками. Если колонок в таблице неизвестно как много, то можно и циклом их заполнять, но до этого ещё далеко, нужно перед этим всё таки шаблон отработать. Я не понял Вашего вопроса, но всё же Вам на него отвечу! |