HTML-Mail versenden mit Textformatierung usw.

[Das S]

Hi,

ich weiß, daß dieses Problem hier schon mehrfach diskutiert wurde, aber trotzdem kriege ich es nicht hin. Ich will eine html-Mail mit Textformatierung, Bildern usw. versenden. Hier der Code:

procedure Temailverfassen.ToolButton1Click(Sender: TObject);
begin
if combobox2.Text='HTML' then
begin
IdMessage1.ContentType:='text/html;';
with TIdText.Create(IdMessage1.MessageParts, nil) do
begin
Body.Assign(richedit1.Lines);
end;
end;
smtp.Connect;
smtp.Send(idmessage1);
smtp.Disconnect;
end;

Der versendet immer in multipart/alternative, und nix ist formatiert. WARUM NICHT ?

Übrigends ist richedit1 die jvxrichedit-Komponente.

Vielen tausend Dank.

Schöne Grüße

Steffen