IdSMTP, вложения и кодировка...

← →
alex732 (2004-10-15 11:42) [0]

Добрый день, Мастера!!! Делаю утилитку которая должна уметь результаты своей работы отправлять по почте. В сообщении, которое она будет отправлять - присутствуют некие вложения. Пока не появилась надобность слать вложения с кодировкой тескта письма все было Ок. После того как прилепил туда атачменты - слетела кодировка текста сообщения. Вот что я вижу сейчас в письме:
..............
Content-Type: multipart/mixed;
boundary="=_NextPart_2rfkindysadvnqw3nerasdf";
charset="windows-1251"
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable
Date: Fri, 15 Oct 2004 10:25:48 +0300
X-Priority: 3
X-Library: Indy 9.00.10

This is a multi-part message in MIME format

--=_NextPart_2rfkindysadvnqw3nerasdf
Content-Type: text/plain
Content-Transfer-Encoding: 7bit ?????????
Добрый день.
...............
--=_NextPart_2rfkindysadvnqw3nerasdf
Content-Type: application/octet-stream;
name="aaa.txt"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="aaa.txt"

c2QuZmxqc2RsamYgZHNma2xqc2Qga2xmanNkbGtmIHNkbGs=
Почему 7bit?? Как мне правильно установить здесь кодировку?
Письмо генерируется следующим образом:
..............
Messages_ := TIdMessage.Create(nil);
Messages_.ContentType := "text/plain";
Messages_.CharSet := "windows-1251";
Messages_.Encoding := meMIME;
Messages_.ContentTransferEncoding := "quoted-printable";

Messages_.From.address := MyAddress;
Messages_.Recipients.EMailAddresses := MyAddress2;
Messages_.Subject := "Тест";
for i := 0 to MesText.Lines.Count -1 do
Messages_.Body.Add(MesText.Lines[i]); //Из RichEdita

Attach := TIdAttachment.Create(Messages_.MessageParts,"c:\aaa.txt");
SMTP1.Host := MyHost;
SMTP1.Connect();
SMTP1.Send(Messages_);
SMTP1.Disconnect;
...........................

← →
alex732 (2004-11-11 16:00) [1]

Ну что, ни кто не поможет?

← →
ilili (2004-11-12 12:55) [2]

Сталкнулся с той же проблемой.

IdSMTP, вложения и кодировка... Найти похожие ветки