Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


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; // отъединяемся }

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

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

 

 

Снимок.PNG

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

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

 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

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...