Morgen
Also wie Sharky schon richtig gesagt hat, du schickst nichts weg. Ich habe das mit dem wegschicken so gelöst.
Delphi-Quellcode:
procedure Tfrmsend.btsendClick(Sender: TObject);
var mailtxt: TStringlist;
receiver: string;
begin
if not (edan.Text= '') then
begin
idpop3.Connect(-1);
if idpop3.Connected = true then
begin
mailtxt:= TStringlist.Create;
mailtxt.Text:= memtext.Lines.Text;
frmsend.sendmail(receiver,'','betreff', mailtxt);
mailtxt.Free;
idpop3.Disconnect;
end;
end
else
showmessage('Bitte Empfänger eingeben');
end;
Ich hoffe jetzt kommt die mail auch an.
MfG Master