Форум: "Сети";
Текущий архив: 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.44 MB
Время: 0.053 c
