Einzelnen Beitrag anzeigen

xweghau

Registriert seit: 29. Dez 2008
Ort: Soest
11 Beiträge
 
Delphi 7 Professional
 
#1

EMail aus einem Dienst erzeugen

  Alt 29. Dez 2008, 22:01
Hallo!
Mein erster Beitrag , mal sehen ...
Ich möchte aus einem Windows 2003 Server Dienst (mit D7 Prof erzeugt) eine EMail generieren, wenn ein bestimmtes Programm nicht mehr läuft und auch nicht vom Dienst wieder gestartet werden kann. Bis auf das Versenden der Mail klappt auch alles. Diese Mail versuche ich mit den Indy Komponenten TIdSMTP und TIdMessage zu senden. Wenn ich dies aus einer "normalen" EXE heraus mache, habe ich kein Problem. Aber eine durch den Dienst erzeugt Mail wird nicht versendet. Es wird eine SMTP Connection aufgebaut, doch der Send Befehl wird nicht (korrekt) ausgeführt.
Hier ein Auszug aus meinem Code:
********************************************
try
SMTP.Send(IdMsgSend);
DebugDatei('Mail versendet');
finally
if SMTP.Connected then
SMTP.Disconnect;
DebugDatei('Mail wurde nicht versendet');
end;
********************************************
Hinweis: Die Prozedur DebugDatei schreibt schreibt die durchlaufenen Schritte in eine Datei. Der Eintrag "Mail versendet" wird nicht ausgeführt.
Hat jemand von Euch einen Tipp? Danke schon mal für die Mühe (zumindest für das Lesen).
Gruß
Franz
  Mit Zitat antworten Zitat