Ich benutze die Kommponente IdMessage. Hier mal den Auszug aus der Prozedur:

zusammenfalten · markieren

Delphi-Quellcode:

procedure sendNewsLetter(an:String; att1:Tstrings; Nachricht:TMemo;
vonMail,Betreff:String);

var IdMsgSend:TidMessage; SMTP:TidSmtp; i:integer; s:string;
begin
  IdMsgSend:=TidMessage.Create(nil);
  SMTP:=TidSmtp.Create(nil);
  IdMsgSend.Clear;
    // Plain Text
     with TIdText.Create(IdMsgSend.MessageParts, nil) do
     begin
       ContentType := 'text/plain';
       Body := Nachricht.Lines;
     end;

woran kann das liegen, das der Body nicht übertragen wird, wenn ich die Email versendet habe?

Ich nimm alles zurück, hab den Fehler zwar nicht gefunden, aber ich hab diese Funktion

markieren

Delphi-Quellcode:

with TIdText.Create(IdMsgSend.MessageParts, nil) do
     begin
       ContentType := 'text/plain';
       Body := Nachricht.Lines;
       Body.SaveToFile('Data.txt');
     end;

Einfach weggelassen und den Body "normal" eingefügt.