Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с Tidmessage [WinXP]


mr. Eof ©   (2006-08-09 23:22:00) 

Добрый день!!

Подскажите пожалуйста как правильно задать кодировку отправляемого письма???
Симптомы - следующие:
- при просмотре письма через WEB интерфейс, например на mail.ru, - ВСЕ ОК.
- при просмотре письма через OutLook - все содержание письма (кроме темы. тема - ок) - выглядит так: дНАПШИ ДЕМЭ!

uses
IdCoderHeader, ...;

procedure TForm1.IdMessageInitializeISO(var VTransferHeader: TTransfer; var VHeaderEncoding: Char; var VCharSet: string);
begin
VTransferHeader:= bit7;
VHeaderEncoding:= 'Q';
VCharSet:= 'windows-1251';
end;

а в свойствах TIdMessage - я задаю:

IdMessage.ContentType:= text/html;

остальные свойства - это: тема, получатель, от кого и др свойства необходимые для отправки письма...

И в процедуре отправки письма:

IdMessage.OnInitializeISO:= IdMessageInitializeISO;

Текст письма программа считывает из TXT файла:
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1251">
</HEAD>

<BODY>
Добрый день!
</BODY>
</HTML>

А OutLook отображает:
дНАПШИ ДЕМЭ!


mr. Eof   (2006-08-10 19:42:00) [1]

Спасибо! Все получилось!


Slym   (2006-08-10 11:20:00) [2]

Добавляй TextPart и у него чарсет настраивай


mr. Eof   (2006-08-10 11:12:00) [3]

Спасибо, но ксожалению результата это не принесло..

При получении письма - тема имеет правильную кодировку (как и задаю: cp1251 или cp-1251 или windows-1251), а вот само письмо - нечитабилино..

Параметры, которые я задаю для IDMessage:


IdMessage.Subject
IdMessage.Body
IdMessage.From.Name
IdMessage.From.User
IdMessage.From.Domain
IdMessage.From.Address
IdMessage.From.Text
IdMessage.Recipients.EMailAddresses


CharSet - задаю в теле самого письма (в html)

Я спринтскринил свойства IDMessage: http://www.eof.pochta.ru/prop.jpg

Большое спасибо за помощь!


ivane   (2006-08-10 03:55:00) [4]

попробуй
VCharSet:= 'cp1251';
или
VCharSet:= 'cp-1251';

тоже самое, только подругому


Наверх

Титульная страница Поиск, карта сайта Написать письмо