Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

IdSMTP [D7, Win2k]

Vika_cc © (2004-11-18 18:07:00)
Добрый вечер вот так вот я отправляю письмо все работает письмо приходит вот только русские буквы превращаются в иероглифы как это убрать подскажите плз!!!!
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;

vuk (2004-11-18 20:19:00) [1]
Мда... Привык к MIME кодеру из SakEMail. Тот, по крайней мере из себя шибко умного не корчит.

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

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

Vika_cc (2004-11-18 19:02:00) [2]

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

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

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

Vika_cc (2004-11-18 18:51:00) [4]
Люди ну помогите ...или скажите а не првильно вопрос задала???

Vika_cc (2004-11-18 18:19:00) [5]
Удалено модератором

Наверх

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