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