Fehler bei Indy Komponente

[HW764]

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:= '[e-mail]';
idMessage.Recipients.EMailAddresses:= combobox1.text;
idSMTP.Connect;
idSMTP.Send(idMessage);
idSMTP.Disconnect;
except
showmessage ('Senden Fehlgeschlagen! Überprüfen Sie bitte die Internetverbindung!');
end;
end;

[Duffy]

Hallo 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.Body.assign(memo1.lines);  <<<======
idMessage.From.Address:= '[e-mail]';
idMessage.Recipients.EMailAddresses:= combobox1.text;
idSMTP.Connect;
idSMTP.Send(idMessage);
idSMTP.Disconnect;
except
showmessage ('Senden Fehlgeschlagen! Überprüfen Sie bitte die Internetverbindung!');
end;
end;

bye
Claus

[alcaeus]

Hi kevin,
Die Lösung ist einfach. Du schreibst: idMessage.Body.add ('memo1.lines'); Richtig wäre: idMessage.Body.addstrings (memo1.lines); Greetz
alcaeus