auf Button klicken und eine mail verschicken

[a.vollmer]

hier ist der code aus der Code Library von Delphi-Netzwerk.de

Delphi-Quellcode:

// wir benutzen aus den Indys: idsmtp1 und idmessage1 3 Edit Felder und ein
// Memo sowie einen button! idsmtp1 wird umbenannt in smtp und idmessage1 in idmsgsend...
// Von Feld = edfrom.text
// An Feld = edto.text
//Betreff Feld = edbetreff.text

procedure TForm1.Button1Click(Sender: TObject);
begin
   with IdMsgSend do
      begin
         Body.Assign(Memo1.Lines);
         From.Text := edfrom.text;
         Recipients.EMailAddresses := edto.text;
         Subject := edbetreff.Text;

      end;



   SMTP.Username := 'username';
   SMTP.Password := 'passwort';

   //smtp einstellungen
   SMTP.Host := 'mail.domain.de';
   SMTP.Port := 110;

   //senden
   SMTP.Connect;
   try
      SMTP.Send(IdMsgSend);
   finally
      SMTP.Disconnect;
   end;
end;

Gruß

Alex