IdSMTP

← →
Vika_cc (2004-11-18 18:07) [0]

Добрый вечер вот так вот я отправляю письмо все работает письмо приходит вот только русские буквы превращаются в иероглифы как это убрать подскажите плз!!!!
procedure sendemail;
var
LSMTP: TIdSMTP;
LMsg: TIdMessage;
begin
LSMTP := TIdSMTP.Create(nil);
LMsg := TIdMessage.Create(LSMTP);
with LMsg do
begin
Subject := "Привет";
Recipients.EMailAddresses :=form2.Edit7.Text;
From.Text := "BO@mail.ru";
Body.Text :="Помогите плз";
end;
with LSMTP do
begin
form1.idSMTP1.AuthenticationType:=atNone;
Host := "192.168.4.4";
Connect;
Send(LMsg);
Disconnect;
end;
FreeAndNil(LMsg);
FreeAndNil(LSMTP);
end;

← →
Vika_cc (2004-11-18 18:19) [1]

Удалено модератором

← →
Vika_cc (2004-11-18 18:51) [2]

Люди ну помогите ...или скажите а не првильно вопрос задала???

← →
vuk © (2004-11-18 18:57) [3]

charset надо указывать. C TIdMessage ковырялся достаточно давно, не все помню, но попробуйте
LMSG.Charset := "windows-1251";

← →
Vika_cc (2004-11-18 19:02) [4]

> vuk © (18.11.04 18:57) [3]
> charset надо указывать. C TIdMessage ковырялся достаточно
> давно, не все помню, но попробуйте
> LMSG.Charset := "windows-1251";

что то теперь вообще страшное произошло пришло письмо с вложеными файлами

Мда... Привык к MIME кодеру из SakEMail. Тот, по крайней мере из себя шибко умного не корчит.

Значит так ...
Что надо поменять/добавить:
uses
IdCoderMIME;

...
Subject := Format( "=?windows-1251?B?%s?=", [TIdEncoderMIME.EncodeString("Привет")]);
...
with LMsg do
...
ContentType := "text/plain";
CharSet := "windows-1251";
Body.Text := ...

IdSMTP Найти похожие ветки