eMail-Versand

[nahpets]

Hallo,

wie wäre es damit?

Delphi-Quellcode:

If slMail.Count > 0 Then Begin
  IdMessage.Clear;
  IdMessage.MessageParts.Clear;
  IdMessage.Date      := Now;
  idMessage.Subject   := 'Fehlerprotokoll: Dienstestatus';
  IdMessage.Body.Text := slMail.Text;
  IdMessage.From.Text := GetEnvironmentVariable('COMPUTERNAME') + '@meinedomaene.de';
  IdMessage.Recipients.EMailAddresses := '[e-mail]';
  idSMTP.Host         := 'ip.des.mail.servers';
  idSMTP.HeloName     := 'gueltigerbenutzer.name';
  idSMTP.Password     := '';
  idSMTP.Username     := idSMTP.HeloName;
  Try
    idSMTP.Connect(10000);
    idSMTP.QuickSend('ip.des.mail.servers',
                     IdMessage.Subject,
                     IdMessage.Recipients.EMailAddresses,
                     IdMessage.From.Text,
                     IdMessage.Body.Text);
    ErrorLog('Protokoll per Mail versandt.',0);
  Except
    on e : Exception Do Begin
      ErrorLog(tmDienste.Name + ' Exception beim Mailversand: ' + e.Message,0);
    end;
  end;
  try
    idSMTP.Disconnect;
  except
  end;
end;

Was verstehst Du unter eigenem SMTP-Server? Willst Du einen vorhandenen nutzen oder willst Du selbst einen in Dein Programm implementieren?

Oder suchst Du nach sowas Hamster?
Oder eher sowas http://www.soft-ware.net/internet/em...ry+%2Bdownload?
Oder darf es sowas http://www.devarticles.com/c/a/Delph...SMTP-Server/4/ sein?