ISMTPOnArrival_OnArrival event not fire at all

Hi,

I'm trying to implement an OnArrival sink on a SMTP server
with IIS 6
on Windows 2003. From the doc I got the
impression I can do this with the verison of IIS and SMTP
server that

When I send mail to this server, it appears in the Drop
folder, but the event never gets fired.

Please help! What am I doing wrong?

<SCRIPT LANGUAGE="VBScript">

Const cdoRunNextSink = 0
Const cdoSkipRemainingSinks = 1


Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Dim file
Set file = fs.OpenTextFile("d:\test.log", 8, True )
file.Write "From: " & Msg.From & vbCrLf
file.Write "To: " & Msg.To & vbCrLf
file.Write "Subject: " & Msg.Subject & vbCrLf & vbCrLf

EventStatus = cdoRunNextSink

End Sub
</SCRIPT>



This is my registry code:

cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost
CDO.SS_SMTPOnArrivalSink "mail from=*"
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost
Sink ScriptName "d:\test.vbs"

Thanks,
yoel

Hi Yoel,

Try microsoft.public.inetserver.iis.smtp_nntp, they'll probably have a
better idea of what's going on...

--
--Jonathan Maltz [Microsoft MVP - Windows Server]
<a style='text-decoration: underline;' href="http://www.imbored.biz" target="_blank">http://www.imbored.biz</a> - A Windows Server 2003 visual, step-by-step
tutorial site
Only reply by newsgroup. If I see an email I didn't ask for, it will be
deleted without reading.


"Yoel Hor" <yoelhor DeleteThis @millenium.org.il> wrote in message
news:009001c38cf1$6df36320$a401280a@phx.gbl...
 > Hi,
 >
 > I'm trying to implement an OnArrival sink on a SMTP server
 > with IIS 6
 > on Windows 2003. From the doc I got the
 > impression I can do this with the verison of IIS and SMTP
 > server that
 >
 > When I send mail to this server, it appears in the Drop
 > folder, but the event never gets fired.
 >
 > Please help! What am I doing wrong?
 >
 > <SCRIPT LANGUAGE="VBScript">
 >
 > Const cdoRunNextSink = 0
 > Const cdoSkipRemainingSinks = 1
 >
 >
 > Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
 >
 > Dim fs
 > Set fs = CreateObject("Scripting.FileSystemObject")
 > Dim file
 > Set file = fs.OpenTextFile("d:\test.log", 8, True )
 > file.Write "From: " & Msg.From & vbCrLf
 > file.Write "To: " & Msg.To & vbCrLf
 > file.Write "Subject: " & Msg.Subject & vbCrLf & vbCrLf
 >
 > EventStatus = cdoRunNextSink
 >
 > End Sub
 > </SCRIPT>
 >
 >
 >
 > This is my registry code:
 >
 > cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost
 > CDO.SS_SMTPOnArrivalSink "mail from=*"
 > cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost
 > Sink ScriptName "d:\test.vbs"
 >
 > Thanks,
 > yoel<!-- ~MESSAGE_AFTER~ -->