unit SMTPSend;

{*****************************************************************
 *  Zweck: Versenden einer e-Mail aus Daten, übergeben mittels   *
 *         einer speziellen Datenstruktur TSMTPStruct            *
 *         (Die e-Mail wird als                                  *
 *         Content-Type: text/plain; charset=iso-8859-1    mit   *
 *         Content-Transfer-Encoding: 8bit            gesendet)  *
 *****************************************************************}

interface

uses Classes;

type TSMTPStruct = record    {Datenstruktur zur Übergabe der Mail}
 Server:   String;           {Name des Mail-Servers zum Senden}
 Receiver: String;           {Empfänger der e-Mail}
 From:     String;           {Mail-Adresse des Absenders/WebMaster}
 Sender:   String;           {Absendername im Klartext}
 Subject:  String;           {Mail-Betreff}
 Content:  TStringList;      {Textinhalt der e-Mail in Zeilenform}
end;

function SMTPSendMail(SMTPDat: TSMTPStruct): Integer;

                        {Ergebniswerte der Funktion SMTPSendMail}
const SMTP_MAILOK  =0;  {Mail korrekt gesendet}
      SMTP_TRANSERR=1;  {Server meldet Fehler beim Übertragen der Mail}
      SMTP_NOSERVER=2;  {Mail-Server nicht gefunden/nicht verfügbar}
      SMTP_NONET   =3;  {keine TCP/IP-Netzverbindung}
      SMTP_NOPARAMS=4;  {nicht genügend Parameter zum Senden}

var SMTPDaten: TSMTPStruct;
begin
 SMTPDaten.Server:='mail.hostingserver.de';
 SMTPDaten.From:='webmaster@hostingserver.de';
 SMTPDaten.Sender:='FormularPostDienst';
 SMTPDaten.Receiver:='service@firma.de';
 SMTPDaten.Subject:='Bestellung';
 SMTPDaten.Content:=TStringList.Create;

  {hier die StringList Content mit dem Mail-Text füllen}

 nErg:=SMTPSendMail(SMTPDaten));
 SMTPDaten.Content.Free;
end;