howto: send a mail, exchange script read your mail

时间：2022-06-30 11:37:21 编辑：袖梨来源：一聚教程网

Again, no error handle, no optimize, just demo test...
paste this to your exchange event script
========================================================
T 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")

推荐专题

最新下载

热门教程

howto: send a mail, exchange script read your mail

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程