Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 331

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!
у меня такой вопрос:
как отправить в теле письма отформатированный текст(с размерами и цветами шрифтов, фона...)

Приложение:
  1. procedure TForm1.Button3Click(Sender: TObject);
  2. var
  3. myNMSMTP : TNMSMTP;
  4. begin
  5. myNMSMTP:=TNMSMTP.Create(Self);
  6. myNMSMTP.Host := 'smtp.skif.com.ua';
  7. myNMSMTP.Port := 25;
  8. myNMSMTP.UserID := 'gtn';
  9. myNMSMTP.TimeOut := 120000;
  10. myNMSMTP.Charset:='windows-1251';
  11. myNMSMTP.Connect;
  12. while (not myNMSMTP.Connected)and(not myNMSMTP.BeenTimedOut) do;
  13. if myNMSMTP.Connected then begin
  14. myNMSMTP.PostMessage.FromAddress := 'gtn@inet.ua';
  15. myNMSMTP.PostMessage.FromName := 'tarasgavrilov';
  16. myNMSMTP.PostMessage.Subject := 'from tarasgavrilov';
  17. myNMSMTP.PostMessage.ToAddress.Add('tarasgavrilov@gmail.com');
  18. myNMSMTP.PostMessage.ToCarbonCopy.Add('');
  19. myNMSMTP.SubType:= mtSGML ;
  20. myNMSMTP.PostMessage.Body.Text:=body.Lines.Text;
  21. myNMSMTP.SendMail;
  22. end;
  23. myNMSMTP.Disconnect;
  24. if assigned(myNMSMTP) then FreeAndNil(myNMSMTP);
  25.  
  26. end;
  27.  
  28. procedure TForm1.PageControl1Change(Sender: TObject);
  29. begin
  30. body.Lines.LoadFromFile('send.rtf');
  31. end;


toro1 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: toro1 (статус: Посетитель)
Вопрос отправлен: 21 января 2009, 20:10
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Тогда такой текст надо оформить в формате HTML. Вот тебе сейчас пришло письмо с ответом, посмотри, в письме вложение в виде "Письмо.html".
Сохрани его (не вложение, а само письмо целиком), скажем, в формате *.EML (не знаю, кокай у тебя клиент, но TheBat поддерживает такой экспорт), открой в текстовом редакторе и посмотри, как там хранится код HTML: он в Base64 не кодируется а лежит открытым текстом после заголовков, т.е. является по сути самим текстом сообщения.

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 21 января 2009, 20:25
Оценка за ответ: 4


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 12 февраля 2011, 15:25; участников в обсуждении: 2.
min@y™

min@y™ (статус: Доктор наук), 21 января 2009, 20:39 [#1]:

Забыл добавить, поле заголовка Content-Type должно быть не

Content-Type: text/plain; charset="твоя_кодировка"

а вот такой, к примеру:

Content-type: text/html; charset="твоя_кодировка"


Вообщем, расмотри письма изнутри и всё поймёшь.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
toro1

toro1 (статус: Посетитель), 12 февраля 2011, 15:25 [#2]:

спасибо

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:50
Выполнено за 0.03 сек.