EMail aus einem Dienst erzeugen

[nahpets]

Hallo,

auch wenn Du schon eine Lösung hast, mein Dienst macht das so:

Delphi-Quellcode:

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 := iniMail.ReadString('MAILSERVER','EMailAddresses','[e-mail]');
idSMTP.Host         := iniMail.ReadString('MAILSERVER','HOST','ip.des.mail.servers');
idSMTP.HeloName     := iniMail.ReadString('MAILSERVER','HELONAME','mein.name');
idSMTP.Password     := iniMail.ReadString('MAILSERVER','PASSWORD','');
idSMTP.Username     := idSMTP.HeloName;
Try
  idSMTP.Connect(10000);
  idSMTP.QuickSend(iniMail.ReadString('MAILSERVER','HOST','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;

Stephan