Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
shtuchka
Зарегистрирован: 18.11.2003 Сообщения: 7 Откуда: Самара
|
Добавлено: Пн Авг 07 2006 14:53 Заголовок сообщения: Delphi - формирование тела письма для отправки |
|
|
Задача - сформировать письмо из програмки на дельфи - типа рассылки сотрудникам с перечнем вновь появившейся информации в базе программы (перечень статей).
Формирую в мемо список - при этом у меня структура такая :
название статьи - ветка-корень ветки
название статьи 2 - ветка 1 - корень ветки 2 и так далее, т е каждая новая строка на новой строке (сорри за тафтологию)
и в мыло я отправляю путем:
TOO:='mailto:'+adresat+'?ubject='+Edit1.Text+'&body='+Memo1.Text+'';
ShellExecute(0, nil, PChar(TOO), nil ,nil,1);
(мемо как я уже сказала сформировано в красивишном виде), все выгружается в текст письма - но все подряд - форматирования не сохраняется. Как сделать так, чтобы у меня воспринимался почтой штоль символ новой строки..типа \n ? |
|
Вернуться к началу |
|
|
shtuchka
Зарегистрирован: 18.11.2003 Сообщения: 7 Откуда: Самара
|
Добавлено: Пт Авг 11 2006 13:32 Заголовок сообщения: |
|
|
Отвечаю сама на свой вопрос (для тех, у кого моет возникнуть подобный же вопросик) необходимо использовать символ %0d
вместо /n
Типа формирую я тело письма из запроса и плюсую данный символ:
Memo1.Text:=Memo1.Text+AnsiReplaceStr(Query2.FieldByName('name_for_user').AsString, '"', '')+'-'+Query2.FieldByName('sname').AsString+#13#10+'%0d';
Вот и все) |
|
Вернуться к началу |
|
|
kocherman
Зарегистрирован: 06.01.2006 Сообщения: 88 Откуда: Обнинск
|
Добавлено: Чт Авг 17 2006 18:21 Заголовок сообщения: |
|
|
а не судьба воспользоваться Internet Direct? |
|
Вернуться к началу |
|
|
|