Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отправка форматированного текста, Как отформатировать текст в теле письма? 
:(
    Опции темы
oleg2s
Дата 30.12.2012, 06:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 12.5.2012

Репутация: 1
Всего: 1



Доброе время суток.
Не могу отформатировать текст в теле письма при отправке с помощью TIdSMTP.
Письмо приходит без форматирования.

Код

With TIdText.Create(IdMessage1.MessageParts, nil) do
   begin
   CharSet := 'UTF-8';
   ContentType := 'text/html';
   Body.LoadFromFile(FileNameHTML);
   end;


Вот мой HTML-файл

Код

<html>
<head>
</head>
<body>
<td>
   <table id="content">
     <tr>
        <td  style="height:70px; font-size:50px; width: 730px">ТЕСТ</td>
     </tr>
   </table>
</td>
</body>
</html>

PM MAIL   Вверх
Illusion Dolphin
Дата 30.12.2012, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63



Пишут что ещё надо:
Код

        IdMessage1.IsEncoded := True ;
        IdMessage1.ContentType := 'multipart/alternative';
        IdMessage1.ClearBody;

Детальнее http://www.indyproject.org/Sockets/Blogs/R...08_17_A.en.aspx или http://www.indyproject.org/Sockets/Blogs/R...0080116.EN.aspx


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
oleg2s
Дата 30.12.2012, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 12.5.2012

Репутация: 1
Всего: 1



Если я указываю IdMessage1.ContentType := 'multipart/alternative';
то письмо приходит поделенное на части, но HTML вообще не видно.


PM MAIL   Вверх
Illusion Dolphin
Дата 30.12.2012, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63



Код


procedure TForm29.Button1Click(Sender: TObject);
var
  html: TStrings;
  htmpart, txtpart: TIdText;
  bmppart: TIdAttachment;
  email: TIdMessage;
  idSmtp: TIdSMTP;
begin
  html := TStringList.Create();
  html.Add('<html>');
  html.Add('<head>');
  html.Add('</head>');
  html.Add('<body><h1>Hello</h1>');
  html.Add('This is a picture of us!</body>');
  html.Add('</html>');

  email := TIdMessage.Create(nil);
  email.From.Text := '[email protected]';
  email.Recipients.EMailAddresses := '[email protected]';
  email.Subject := 'Hello';
  email.ContentType := 'multipart/mixed';
  email.Body.Assign(html);

  txtpart := TIdText.Create(email.MessageParts);
  txtpart.ContentType := 'text/plain';
  txtpart.Body.Text := '';

  htmpart := TIdText.Create(email.MessageParts, html);
  htmpart.ContentType := 'text/html';

  idSmtp := TIdSMTP.Create(nil);
  try
    idSmtp.Port := 25;
    idSmtp.Username := '[email protected]';
    idSmtp.Password := 'wdmcome';
    idSmtp.Host := 'smtp.mail.ru';
    idSmtp.Port := 25;
    idSmtp.Connect();
    try
      idSmtp.Send(email);
      ShowMessage('Sent');
    except
      on E: Exception do
        ShowMessage('Failed: ' + E.Message);
    end;
  finally
    idSmtp.Free;
    email.Free;
    html.Free;
  end;
end;


Отсюда http://niclogic.wordpress.com/2009/01/19/s...elphi-and-indy/


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
oleg2s
Дата 30.12.2012, 14:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 12.5.2012

Репутация: 1
Всего: 1



Странно...
<h1>Hello</h1> - отработало как надо. Большими буквами.

А эту строку не хочет. Видимо что-то не то с самим HTML.
<td  style="height:70px; font-size:50px; width: 730px">ТЕСТ</td>

Спасибо. Буду разбираться.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0990 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.