отправка письма с прекрепленным файлом

[munhauz]

Доброго дня 

у меня возникла такого ряда проблема 

формирую текст письма состоящего из HTML тегов и информации соотвественно (отсылается табличный отчет на почту)

тут попросили еще файл прикреплять (word)

до прикрепления файла все отправлялось и все было хорошо 

но как стал прикреплять файл пошла какая то фигня 

а именно 

вид письма приходящего мягко говоря изменился  (на фото )

 if frm_main.IdSMTP1.Connected then
        frm_main.IdSMTP1.Disconnect;
      frm_main.IdSMTP1.Host := readiniprop('mail', 'host'); // адрес smtp-сервера
      frm_main.IdSMTP1.Port := StrToInt(readiniprop('mail', 'port'));
      frm_main.IdSMTP1.Username := readiniprop('mail', 'user');;
      frm_main.IdSMTP1.Password := readiniprop('mail', 'pass');;
      frm_main.IdSMTP1.UseTLS := utNoTLSSupport;
      frm_main.IdSMTP1.AuthType := satDefault;

      frm_main.IdMessage1.Clear;
      frm_main.IdMessage1.Subject := (readiniprop('mail', 'tema')); // текст темы сообщения
      frm_main.IdMessage1.Recipients.EMailAddresses := adreess; // указываем адрес получателя
      frm_main.IdMessage1.From.Address := readiniprop('mail', 'user'); // указываем адрес отправителя
      frm_main.IdMessage1.CharSet := 'Windows-1251';
      frm_main.IdMessage1.From.name := readiniprop('mail', 'otprv'); // имя отправителя письма
      frm_main.IdMessage1.ContentType := 'text/html';
      frm_main.IdMessage1.Body.Add(s.text );

      frm_main.IdMessage1.MessageParts.Clear;
      att:=TIdAttachmentFile.Create(frm_main.IdMessage1.MessageParts, 'shablon.doc');

      frm_main.IdSMTP1.connect; // (5000); // соединяемся
      frm_main.IdSMTP1.Send(frm_main.IdMessage1); // отправляем
      frm_main.IdSMTP1.Disconnect; // отъединяемся }

вроде все пишу верно 

но явно что то не так ..... 

 

 

[munhauz]

И так проблемма решилась 

 if frm_main.IdSMTP1.Connected then
        frm_main.IdSMTP1.Disconnect;
      frm_main.IdSMTP1.Host := readiniprop('mail', 'host'); // адрес smtp-сервера
      frm_main.IdSMTP1.Port := StrToInt(readiniprop('mail', 'port'));
      frm_main.IdSMTP1.Username := readiniprop('mail', 'user');;
      frm_main.IdSMTP1.Password := readiniprop('mail', 'pass');;

      frm_main.IdMessage1.Clear;
      frm_main.IdMessage1.Subject := (readiniprop('mail', 'tema')); // текст темы сообщения
      frm_main.IdMessage1.Recipients.EMailAddresses := adreess; // указываем адрес получателя
      frm_main.IdMessage1.From.Address := readiniprop('mail', 'user'); // указываем адрес отправителя
      frm_main.IdMessage1.From.name := readiniprop('mail', 'otprv'); // имя отправителя письма
      frm_main.IdMessage1.ContentType := 'multipart/mixed; type="text/html';
      //frm_main.IdMessage1.CharSet := 'Windows-1251';
      frm_main.IdMessage1.IsEncoded := True;

      frm_main.IdMessage1.MessageParts.Clear;
      TIdAttachmentFile.Create(frm_main.IdMessage1.MessageParts, 'shablon.doc');
      with TIdText.Create(frm_main.IdMessage1.MessageParts, nil) do
        begin
          CharSet  := 'Windows-1251';
          ContentType := 'text/html';
          Body.text := s.text;

        end;
      //frm_main.IdMessage1.Body.text := s.text;

      frm_main.IdSMTP1.connect; // (5000); // соединяемся
      frm_main.IdSMTP1.Send(frm_main.IdMessage1); // отправляем
      frm_main.IdSMTP1.Disconnect; // отъединяемся }

помогло 

http://www.indyproject.org/Sockets/Blogs/RLebeau/2005_08_17_A.en.aspx