Форум программистов, компьютерный форум, киберфорум
Наши страницы
Schtrich
Войти
Регистрация
Восстановить пароль
Рейтинг: 4.40. Голосов: 5.

Delphi! Отправка писем. Кодировка

Запись от Schtrich размещена 12.04.2012 в 01:16

Решение проблемы с кодировкой при отправке письма связкой компонентов idSmtp и idMessage

1-ое что делаем это в событие OnInitializeISO компонента IdMessage пишем:

Delphi
1
2
3
4
5
procedure TForm1.IdMessage1InitializeISO(var VTransferHeader: TTransfer;
  var VHeaderEncoding: Char; var VCharSet: String);
begin
VCharSet:=IdMessage1.CharSet;
end;
чтобы не было ошибки нужно добавить в uses модуль IdCoderHeader!

2-ое, выставляем кодировку отправляемого письма в UTF8, того же компонента:

Delphi
1
IdMessage1.CharSet:='utf8';
3. конвертируем Тему и Содержание письма в UTF8

Delphi
1
2
idMessage1.Subject:=AnsiToUtf8(subj);
idMessage1.Body.text:=AnsiToUtf8(subj);
4. Установим ContentType как text/plain в свойствах компонента IdMessage

5. Наслаждаемся проделанной работой!
Размещено в Без категории
Просмотров 4419 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru