SMTP onArrival sink in VBScript + MS Access

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

SMTP onArrival sink in VBScript + MS Access

Logged in as: Guest

arrSession:exec spGetSession 2,2,230

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> SMTP onArrival sink in VBScript + MS Access
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

SMTP onArrival sink in VBScript + MS Access - 7/2/2001 1:09:08 AM

mcwatt

Posts: 1
Score: 0
Joined: 7/2/2001
From: Poland
Status: offline

Hi all,

I have the following problem:
I created onArrival sink for SMTP service
in VBScript under Windows 2000 Server.
The method is supposed to invoke some subroutine in Access's database using automation. Everything is going fine but after execution of the method there
is the MSACCESS.EXE process present under TaskManager. It should dissapeare but it doesn't. Does anyone know, why?
Everything works O.K. when the script
is run directly.

Here is the script:
'------------------------------------------
<SCRIPT LANGUAGE="VBScript">

Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus )
Const acQuitSaveAll = 1
Const cdoRunNextSink = 0
Dim objApp
Set objApp = CreateObject("Access.Application")
objApp.OpenCurrentDatabase "c:\db1.mdb", False
objApp.Run "CheckDropDir"
'CheckDropDir is a subroutine in db1.mdb database
objApp.CloseCurrentDatabase
objApp.Quit acQuitSaveAll
Set objApp = Nothing
EventStatus = cdoRunNextSink
End Sub
</SCRIPT>

'--------------------------------------

Thanks in advance.