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

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

почему отсылаеться приатаченный файл

Dysan ©   (2004-03-12 15:25:00) 

Использую компонент Indy9
формирую письмо
IdM.Clear;
with idm do begin
  Body.Add(MItem.Body_);
   From.Text := MItem.From_;
   Recipients.EMailAddresses := MItem.To_; { To }
   Subject := MItem.Subject_;
   CCList.EMailAddresses := MItem.CC_;
   BccList.EMailAddresses := MItem.bCC_;
   CharSet:=MItem.Charset_;

и отсылаю
SMTP.Send(IdM);
а в аутлук текст приходит как приатаченный! :(
что не правильно?

---

Dysan   (2004-03-12 16:40:00) [1]

что то я совсем ничего не понимаю
в 8 версии indy вот эта строка
ExtraHeaders.Text:='MIME-Version: 1.0';
добавляла то что ее просят в хеадер
сейчас же почему то в текст письма!!
Как тогда добавить в пимсьмо что это MIME-Version: 1.0 ?????

---

Dysan   (2004-03-12 16:03:00) [2]

а как charset указать???
если сделать это так
LMsg.CharSet:=
то не прокатывает

---

ssk   (2004-03-12 15:28:00) [3]

Я делал так:

uses IdMessage, IdSMTP;

var
 LSMTP: TIdSMTP;
 LMsg: TIdMessage;
 s:string;
begin
LSMTP := TIdSMTP.Create(nil);
LMsg := TIdMessage.Create(LSMTP);
with LMsg do
 begin
   Subject := 'тема';
   Recipients.EMailAddresses := '_получатель(адрес)_';
   From.Text := '_от_кого_(адрес)';
   Body.Text := 'текст письма';
 end;
with LSMTP do
 begin
   AuthenticationType:=atNone;
   Host := 'smtp-сервер';
   Connect;
   Send(LMsg);
   Disconnect;
   ShowMessage('письмо отправлено');
 end;
 FreeAndNil(LMsg);
 FreeAndNil(LSMTP);
end;

---

Наверх