Форум: "Сети";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Вниз

Кракозябры в теме письма.   Найти похожие ветки 

← →
__DATA__   (2005-12-12 10:10) [0]

Отсылаю письмо через idSMTP так :

   m.ContentType := "text/plain";
   m.CharSet := "windows-1251";
   m.Encoding := meMIME;
   m.ContentTransferEncoding := "quoted-printable";

   m.From.Name := frmSettings.edtName.Text;
   m.From.Address := frmSettings.edtFromAdress.Text;
   m.Subject := edtSubject.Text;
   m.Body.Text := memBody.Text;

   if SMTP.Connected then
     SMTP.Disconnect;
   SMTP.Connect;
 SMTP.Send(m);


Письмо отсылается нормально, но при получении его программой MS Outlook, в теме(Subject) письма в место русского текста какие-то кракозябры. Русский тикст письма отсылается без проблемм(body).

Как можно решить данную проблемму?

Indy 10

---

← →
DelphiN! ©   (2005-12-12 10:30) [1]


Uses
  IdCoderHeader;
...

procedure LInitializeISO(Sender: TObject; var VTransferHeader: TTransfer;
var VHeaderEncoding: Char; var VCharSet: string);
begin
 VTransferHeader:=bit8;
 VHeaderEncoding:="B";
 VCharSet:="Windows-1251";
end;

var
  LM: TMethod;
  m: TMessage;
begin
   m := TMessage.Create(nil);
   LM.Data:=m;
   LM.Code := @LInitializeISO;
   m.OnInitializeISO := TIdInitializeISOEvent(LM);
...


---

← →
ASar   (2005-12-22 14:09) [2]

Красиво и ведь работает.
Класс!!!  Спасибо.

m: TMessage;  ->  m: TidMessage; // ?

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.042 c