VPF::Как указать нужную кодировку писму??

WaReZMEN

Дата 11.3.2009, 15:19 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

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

Отправляю почту писмо уходит на ящик и приходит куда нужно проблема в том что текст на русском какоито не такой smile

вопросики одни... как исправить???

Код


begin       
  AddEmailAdress(StrToInt(LabeledEdit2.Text),Self);
  IdSMTP1.Host:=LabeledEdit3.Text;
  IdSMTP1.Port:=25;
  IdMessage1.From.Address:=LabeledEdit1.Text+'@'+GetHost(LabeledEdit3.Text);
  IdSMTP1.ConnectTimeout := StrToInt(LabeledEdit6.Text)*1000;
  IdSMTP1.Connect;

  IdMessage1.ContentType := 'text/plain';
  IdMessage1.CharSet := 'windows-1251';
 
    With TIdText.Create(IdMessage1.MessageParts) do begin
    ContentType := 'text/plain; charset=windows-1251';

  end;


  IdMessage1.Subject:=LabeledEdit5.Text;
  IdSMTP1.Username:=LabeledEdit1.Text;
  IdSMTP1.Password:=LabeledEdit4.Text;
  IdMessage1.Body.AddStrings(Memo1.Lines);

  IdSMTP1.Connected;
  IF IdSMTP1.Connected=True then
    Begin
      IdSMTP1.Send(IdMessage1);
      IdSMTP1.Disconnect;
      ShowMessage('Отправлено!!!');
      IdMessage1.Recipients.Clear;
    End;
end;

Это сообщение отредактировал(а) WaReZMEN - 11.3.2009, 15:47

WaReZMEN

Дата 12.3.2009, 16:54 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

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

Все разобрался! Нужно было Текст в memo конвертировать в нужную кодировку smile

Код


AddEmailAdress(StrToInt(LabeledEdit2.Text),Self);
  IdSMTP1.Host:=LabeledEdit3.Text;
  IdSMTP1.Port:=25;

  IdMessage1.From.Address:=LabeledEdit1.Text+'@'+GetHost(LabeledEdit3.Text);
  IdSMTP1.ConnectTimeout := StrToInt(LabeledEdit6.Text)*1000;
  IdMessage1.ContentType := 'text/plain';

  IdMessage1.CharSet := 'UTF-8';

  IdMessage1.Body.Text := UTF8Encode(Memo1.Lines.Text);

  IdMessage1.Subject:=UTF8Encode(LabeledEdit5.Text);
  IdSMTP1.Username:=LabeledEdit1.Text;
  IdSMTP1.Password:=LabeledEdit4.Text;
  IdSMTP1.Connect;
  IF IdSMTP1.Connected=True then
    Begin
      IdSMTP1.Send(IdMessage1);
      IdSMTP1.Disconnect;
      ShowMessage('Отправлено!!!');
      IdMessage1.Recipients.Clear;
    End;

Это сообщение отредактировал(а) WaReZMEN - 12.3.2009, 17:19

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