Howto:send a mail, Exchange script read your mail

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 ")