IdMessage.

Jammes · #1 20.05.2013, 21:55

Вообщем сама суть.
Сделать отправку писем.
Должно выглядеть так:

Фамилия Имя Отчество:
Тест Тест Тест (Вводится в 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);
 
<u>idMessage1.Body.Text:='Заказ:';
idMessage1.Body.Add(Добавление всех трёх лист боксов, чтобы получилось что-то вроде таблички.);</u>
 
idMessage1.From.Text:='db6e@yandex.ru';
idMessage1.Recipients.EMailAddresses:='avtservis2013@ya.ru';
idMessage1.Subject:='Заказ клиента';
 
idSmtp1.Connect();
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
end;

Админ: пользуемся тегами для оформления кода!

Сам вопрос:
Как сделать чтобы отправлялись ListBox? И чтобы они принимали вид таблички.

Alegun · #2 21.05.2013, 16:59

Для начала возможно надо создать шаблон письма в фомате html,со всеми записями, отступами и таблицами, как оно должно выглядеть при получении у адресата, используя теги html разметки типа

Код HTML:

<table>
<tr>
<td>Наименование (в лист боксе1)</td>
<td>000 (в лист боксе2)</td>
</tr></table>

(вот по html-таблицам подробный материал)

Используя его потом как образец, загнать это всё в тело письмотправителя

Код:

...
 
idMessage1.Body.Text:= '<html><head></head>'+
 
...
 
'<table><tr><td>' +
лист бокс1.итемс.стрингс[1] + 
'</td><td>' +
лист бокс1.итемс.стрингс[2] + 
'</td></tr></table>' + etc
 
...
 
 
'</html>';
...

предварительно задав ему

Код:

1	`idMessage1.ContentType :=` `'text/html; charset=Windows-1251';`

так вот и придётся подгонять ручками. Если колонок в таблице неизвестно как много, то можно и циклом их заполнять, но до этого ещё далеко, нужно перед этим всё таки шаблон отработать.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты