Indy. Отпрвка письма на email. HTML + вложения, как?

[Человек_Борща]

Доброго времени суток!

Есть код:

          msg.Encoding := meMIME;
          msg.IsEncoded:=True;
          msg.ContentTransferEncoding := '8bit';
          msg.CharSet := 'utf-8';
       {   if fM.IsHTMLText then
            msg.ContentType := 'text/html; charset=UTF-8'
          else
            msg.ContentType := 'text/plain; charset=UTF-8'; }
          msg.Headers.AddStrings(fM.SMTPHeaders);

          if fM.UseAttachments then
          begin
            SetLength(Attachments, 0);
            for i2 := 0 to fM.AttachmentsList.Count - 1 do
            begin
              SetLength(Attachments, High(Attachments) + 2);
              Attachments[High(Attachments)] :=
                TIdAttachmentFile.Create(msg.MessageParts,
                fM.AttachmentsList[i]);
            end;
          end;
          try
            SMTP.Send(msg);

Сейчас(синий код за комментирован), на почту приходит постой текст и вложения. Однако если его раскомментировать, и поставить IsHTMLText в TRUE, то приходит нечто такое:

This is a multi-part message in MIME format --IfD41ocMHdu26JAArxZ59hNBA96D=_nuTp Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Content-Disposition: inline =D0=AF =D1=82=D0=B5=D0=BA=D1=81=D1=82 =D0=B4=D0=BB=D1=8F =D1=81 http:= //yandex.by/ =D0=B8 =D0=AD=D1=82=D0=BE =D1=82=D0=B5=D0=BA=D1=81=D1=82= 3, =D0=BD=D0=BE =D1=83=D0=B6=D0=B5 =D1=81=D0=BE =D1=81=D1=81=D1=8B=D0= =BB=D0=BA=D0=BE=D0=B9
--IfD41ocMHdu26JAArxZ59hNBA96D=_nuTp Content-Type: text/plain; charset="windows-1251"; name="47hZTQ4Q.png" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="47hZTQ4Q.png"

Где строка жирным, это строка вида <b>я строка</b>

[Slym]

не пользуй msg.Body и его причиндалы
msg.Encoding := meMIME;
msg.IsEncoded:=True;
msg.ContentTransferEncoding := '8bit';
msg.CharSet := 'utf-8';
делай вручную

            LTextPart := TIdText.Create(Msg.MessageParts);
            LTextPart.Body.Text := Text;
            LTextPart.ContentType := 'text/html; charset=UTF-8'
            LTextPart.ContentTransfer := '8bit';    {do not localize}

[Кольша]

почему бы не перейти на synapse?)

[Человек_Борща]

Кольша, HTTP да, но в плане SMTP синапс немного не до делан и не так гибок.

Проблема решена путем чтения rfcшек по SMTP.