VPF::Отправка форматированного текста

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>

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

oleg2s

Дата 30.12.2012, 10:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

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

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/

--------------------

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>

Спасибо. Буду разбираться.

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