Funktion für E-Mail Versand

[Andidreas]

@deddyh

danke für den tipp...
ich habs versenden nun so abgeändert:

Delphi-Quellcode:

  //Send E-Mail
  Try
    Try
      SMTP.Connect;
      SMTP.Send(idMessage);
      SMTP.Disconnect;
    Except
      Result := False;
      If SMTP.Connected = True Then
      Begin
        Try
          SMTP.Disconnect;
        Except
          MessageDlg('Could not disconnect from the E-Mail Server: ' + sHost, mtError, [mbOK], 0);
        End;
      End;
      MessageDlg('Could not send E-Mail to: ' + sReceipt, mtError, [mbOk], 0);
    End;
  Finally
    //Destroy TIdSMTP and TIdMessage Componente
    SMTP.Free;
    idMessage.Free;
  End;

@michallinden
danke für dein anmerkung... aber warum sollte ich mir hier jetzt noch die arbeit machen und ein php script schreiben?
für meinen e-mail versand brauch ich auch keinen IE oder FF oder sonst irgend nen i-explorer...
und login daten brauch ich hierfür auch nicht einmal... die sind nur zur vollständigkeit drinne...