Moin,
ich versuche auf einem Exchange Server 2003 den Transport Event Sink "CDO_OnArrival" mit Hilfe von VBScript zu nutzen, doch irgendwie reagiert das Ereignis nicht. Hier mal ein paar Stichpunkte zu meiner Installation und dem verwendeten VBScript:
1. Installation
- Windows Server 2003 Installation wie hier beschrieben: Installieren von Windows Server 2003 als DC
- Exchange Server 2003 installiert und Postfächer (SMTP) eingerichtet
- Script nach diesem Schema installiert: SMTP-EventSink
2. Testscript:
<SCRIPT LANGUAGE="VBScript">
Const cdoRunNextSink = 0
Sub ISMTPOnArrival_OnArrival(ByVal objMsg, EventStatus)
On Error Resume Next
dim fso
dim datei
Set fso = CreateObject("Scripting.FileSystemObject")
Set datei = fso.OpenTextFile("C:\EventSink\log.txt", True)
datei.Write("Email abgefangen! " & objMsg.Subject)
datei.close
EventStatus = cdoRunNextSink
End Sub
</SCRIPT>
Egal ob ich eine Email mit Outlook 2003 (Anbindung an Exchange Server) oder Outlook Express verschicke in der "C:\EventSink\log.txt" taucht nix auf.
Hat jemand eine Erklärung und kann mir helfen ?
Danke.
Gruss Matthias