EMail aus einem Dienst erzeugen

[xweghau]

Hallo Oliver!

Danke schon mal für Deine Mühe. Wie Du vermutest (und ich im ersten Absatz meines Beitrages schrieb :) ) verwende ich die Komponenten TIdSMTP und TIdMessage.

Nachfolgend der Quellcode. Der SMTP Server den ich verwende existiert und ist erreichbar. Auch die Empfängeradresse ist gültig. Die Eigenschaften der Komponenten habe ich als JPGs beigefügt.

Delphi-Quellcode:

procedure TsvcArchivprgUeberwachung.MailToAdmin;
begin
  with IdMsgSend do begin
    From.Text := '[e-mail]' //Absender
    ReplyTo.EMailAddresses := ''; //Antwort an
    Recipients.EMailAddresses := '[e-mail]'; //Empfänger der Mail
    //Mailtext
    Body.Clear;
    try
      IdMsgSend.MessageParts.Clear;
    except
    end;
    Subject := 'Archivüberwachung'; //Mailbetreff
    Body.Add('Nachricht vom Archivsytem:');
    Body.Add('');
    Body.Add('Das Archivüberwachungsprogramm läuft derzeit nicht.');
    Body.Add('Es konnte auch nicht automatisch gestartet werden.');
    Body.Add('Bitte überprüfen Sie dies und starten Sie das Programm.');
    Body.Add('');
    //Ende Mailtext
    Priority := mpNormal; //Priorität 
    CCList.EMailAddresses := ''; //Kopie an
    BccList.EMailAddresses := ''; //Blindkopie an
    ReceiptRecipient.Text := ''; //Antwortnachricht
  end;
  DebugDatei('Mail zum Versand erzeugt, die Verbindung wird jetzt hergestellt.');
//Authentifikation am Mailserver
  SMTP.AuthenticationType := atNone;
//Servername und -port vorgeben
  SMTP.Host := SmtpServerName;
  SMTP.Port := SmtpServerPort;
//Nachricht senden
  SMTP.Connect;
  if SMTP.Connected then
    DebugDatei('Connection wurde hergestellt')
  else
    DebugDatei('Connection konnte nicht aufgebaut werden');
  try
    SMTP.Send(IdMsgSend);
    DebugDatei('Mail erfolgreich gesendet');
  finally
    SMTP.Disconnect;
    DebugDatei('Disconnect ist erfolgt.');
  end;
end;

Ich hoffe, die Informationen sind jetzt soweit vollständig, dass mir jemand weiterhelfen kann!?

Gruß
Franz