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

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

Как при отправке письма через TIdSMTP указать кодировку письма ? [D7, XP]

ANB ©   (2006-06-16 12:51:00) 

Отправляю письмо через TIdSMTP.
Примерно так :

   FMsg := tIdMessage.Create(nil);
   FMsg.Subject:= Format( '%s_%d_%d', [ MessageChar, Cert_No, MailNum ] );
   FMsg.Date := Now;
   FMsg.From.Address := FPOP.Username;
   FMsg.Sender.Address := FPOP.Username;
   FMsg.Sender.Name := 'Я';
   FMsg.Recipients.Clear;
   FMsg.Recipients.Add.Address := Bank_EMail;
   FMsg.Body.Text := Message_Body;

Message_Body - обычная константа.
При получении этого письма оутлуком - в нем крякозябры. Как заставить его ехать нормально в обычной виндовой кодировке (чтобы оутлук читал).

---

ANB   (2006-06-16 17:30:00) [1]

Мрак. Пока модуль IdMessageClient не поправил, так и не смог добиться результата.

---

ANB   (2006-06-16 16:33:00) [2]

> Dmitrij_K   (16.06.06 15:40) [2]

Пробовал - не помогает.

---

Dmitrij_K   (2006-06-16 15:40:00) [3]

Попробуй Mes.CharSet := 'windows-1251';

---

ANB   (2006-06-16 15:35:00) [4]

Может надо в другую ветку переложить ?

---

Наверх