【www.gdgbn.com--python】
Again, no error handle, no optimize, just demo test...paste this to your exchange event script
========================================================
<script RunAt=Server Language=VBScript>
Option Explicit
" Event Handlers
"---------------------------------------------------------------------
" DESCRIPTION: This event is fired when a new message is added to the folder
Public Sub Folder_OnMessageCreated
On Error Resume Next
Dim AMSession
Dim fldrOutbox
Dim msgTarget
Dim fldrTarget
Dim oStores
Dim Temp
Dim idTargetFolder
Dim idTargetMessage
Dim msgResponse
idTargetFolder = EventDetails.FolderID
idTargetMessage = EventDetails.MessageID
Set AMSession = EventDetails.Session
Set fldrOutbox = AMSession.Outbox
Set fldrTarget = AMSession.GetFolder( idTargetFolder, Null )
Set msgTarget = AMSession.GetMessage( idTargetMessage, Null )
" =========================================================================
Dim oConn
Dim oRs
Dim Index
dim strDBResult
dim dbcnstr
Set oConn = CreateObject("ADODB.Connection")
dbcnstr = "driver={SQL Server};server=sqlserver;database=demo;uid=sa;pwd="
oConn.Open dbcnstr
Set oRs = CreateObject("ADODB.Recordset")