Die sind ja aber nicht fest, wie mache ich das dann?
Naja, was solls, ich poste ma meinen quelltext, wäre nett, wenn du ihn verbessern würdest:
Delphi-Quellcode:
procedure TfmMain.btnSendClick(Sender: TObject);
begin
addys := tstringlist.create;
addys.LoadFromFile('
addys.txt');
if (eduser.text = '
')
or (edpass.text = '
')
or (edsubject.text = '
')
or (edaddy.text = '
')
or (edserver.text = '
')
then showmessage('
Please fill in all fields!');
with message1
do begin
message1.Subject := edsubject.Text;
Recipients.EMailAddresses := addys.text;
message1.Body := memo1.lines;
from.Text := edaddy.Text;
with smtp do begin
AuthenticationType := atlogin;
SMTP.UseEhlo := True;
smtp.username := eduser.text;
smtp.password := edpass.Text;
smtp.HeloName:= edserver.Text;
smtp.host := edserver.Text;
smtp.port := strtoint(edport.text);
AuthenticationType := atlogin;
disconnect;
connect;
SMTP.Send(Message1);
end;
end;
end;
Wäre nett, wenn du mich in ICQ addest:
358-645-276