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

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

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

__DATA__ ©   (2005-12-12 10:10:00) 

Отсылаю письмо через 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

---

ASar   (2005-12-22 14:09:00) [1]

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

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

---

DelphiN!   (2005-12-12 10:30:00) [2]


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);
...


---

Наверх