munhauz получил реакцию от
Anatoliy в отправка письма с прекрепленным файлом
И так проблемма решилась
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