Кодировка при отправке письма

@Oneill · Регистрация: 30.11.2011

Author24 — интернет-сервис помощи студентам

Добрый день, подскажите как исправить корявую кодировку.
Отправляю письмо с помощью компонента IdMessage подключение через IdPOP3... Текст набирается в компоненте Мемо.
Когда получаю письмо, Тема самого письма на нормальном русском языке, а текст письма через кракозябры... Английский текст, цифры и знаки нормално отображаются.... Что сделать?
Заранее благодарен

@ramzeswr · 20.12.2012, 19:11

Добавляешь функцию:

Delphi

function ConvertToWIN1251(instr:string):string;
begin
result:='=?'+'Windows-1251'+'?B?'+form1.IdEncoderMIME1.Encode(instr)+'?=';
end;

Далее добавляешь код:

Delphi

1	IdMessage1.CharSet:='windows-1251'

;

Вот пример, использованный в моем исходнике:

Кликните здесь для просмотра всего текста

Delphi

function ConvertToWIN1251(instr:string):string;
begin
result:='=?'+'Windows-1251'+'?B?'+form1.IdEncoderMIME1.Encode(instr)+'?=';
end;
 
 
 
 
procedure TForm1.sButton1Click(Sender: TObject);
var i: integer;
begin
sGauge1.MaxValue:= sListbox1.count;
IdSMTP1.AuthenticationType:= atLogin;
IdSMTP1.Username:=sEdit3.text;
IdSMTP1.Password:=sEdit5.text;
IdSMTP1.Host:=sEdit2.text;
IdSMTP1.Port:=StrToInt(sEdit4.Text);
IdMessage1.CharSet:='windows-1251';
IdMessage1.Body.text:=sMemo1.text;
IdMessage1.Subject:=ConvertToWIN1251(sEdit1.text);
IdMessage1.From.Address:=sEdit3.text;
IdMessage1.From.Name:=ConvertToWIN1251(sEdit6.text);
IdMessage1.IsEncoded:=true;
if sCheckBox1.Checked
then begin
TIdAttachment.Create(IdMessage1.MessageParts,(sOpendialog2.filename));
end;

@Oneill 5 / 5 / 1 Регистрация: 30.11.2011 Сообщений: 238 Записей в блоге: 1
		1
	Кодировка при отправке письма 11.12.2012, 13:07. Показов 3472. Ответов 1 Метки нет (Все метки) Добрый день, подскажите как исправить корявую кодировку. Отправляю письмо с помощью компонента IdMessage подключение через IdPOP3... Текст набирается в компоненте Мемо. Когда получаю письмо, Тема самого письма на нормальном русском языке, а текст письма через кракозябры... Английский текст, цифры и знаки нормално отображаются.... Что сделать? Заранее благодарен 0

	20.12.2012, 19:11

Кодировка при отправке письма

Решение