Hallo zusammen,
hiermit versende ich im Moment eine Mail aus einem Programm aus:
Delphi-Quellcode:
with IdMessage1 do
begin
Body.Assign(RicheditEMailtext.Lines);
Recipients.Add.Address:=Absenderadresse;
from.Text:=;
from.Address:=Absenderadresse;
Subject:=Betreff;
end;
with IdSMTP1 do
begin
Username:=Benutzer;
Password:=Passwort;
Host:=SMTPHost;
Connect;
for i:= 0 to Pred(LBAnhaenge.Items.Count) do
TIdAttachmentFile.Create(IdMessage1.MessageParts,LBAnhaenge.Items.Strings[i]);
Send(IdMessage1);
Disconnect;
end;
in LBAnhaenge sind die Dateipfade der Anhänge aufgelistet.
Wie kann ich jetzt die Formatierungen(Fett,zenriert usw.)aus dem RichEdit in die Mail übernehmen, so dass der der diese Mail dann liest eben auch diese Formatierungen sieht.