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

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

IdSMTP, вложения и кодировка... [D7, Win2k]

alex732 ©   (2004-10-15 11:42:00) 

Добрый день, Мастера!!! Делаю утилитку которая должна уметь результаты своей работы отправлять по почте. В сообщении, которое она будет отправлять - присутствуют некие вложения. Пока не появилась надобность слать вложения с кодировкой тескта письма все было Ок. После того как прилепил туда атачменты - слетела кодировка текста сообщения. Вот что я вижу сейчас в письме:
..............
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;
...........................

---

ilili   (2004-11-12 12:55:00) [1]

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

---

alex732   (2004-11-11 16:00:00) [2]

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

---

Наверх