Ich bekomme immer bei diesem Code eine E-Mail. Das ist gut so. Aber in der email sollte eigentlich stehen, was in memo1 steht und nicht einfach 'memo1.text'. Das heisst in der E-Mail steht "Memo1.text". Wie kann ich das beheben?
Gruss HW764
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
try
idSMTP.Host := 'mail.bluewin.ch';
idSMTP.Username := '';
idSMTP.Password := '';
idMessage.Subject := 'Lob + Kritik';
memo1.lines.add (edit1.text);
idMessage.Body.add ('memo1.lines');
idMessage.From.Address:= 'Anonym@gmx.com';
idMessage.Recipients.EMailAddresses:= combobox1.text;
idSMTP.Connect;
idSMTP.Send(idMessage);
idSMTP.Disconnect;
except
showmessage ('Senden Fehlgeschlagen! Überprüfen Sie bitte die Internetverbindung!');
end;
end;