当前位置:编程学习 > asp >>

howto: send a mail, exchange script read your mail body and add it to database

答案: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")
    Set oRs.ActiveConnection = oConn

    ' Get empty recordset
                
    oRs.Source = "SELECT * FROM testtable Where 1=2"
    oRs.CursorType = 3 'adOpenStatic
    oRs.LockType = 3 'adLockOptimistic
    oRs.Open

    ' Add New Record
    oRs.Addnew
    oRs("test1").Value = msgTarget.text
    oRs.Update

    oRs.close
    oConn.close

' =========================================================================    
    Set msgResponse = fldrOutbox.Messages.Add( "Your Input has been added into database", "ok!")
    msgResponse.Recipients.Add "", "", 1, msgTarget.Sender.ID
    msgResponse.Recipients.Resolve(False)
    msgResponse.Send
    
End Sub

' DESCRIPTION: This event is fired when a message in the folder is changed
Public Sub Message_OnChange
    On Error Resume Next

End Sub

' DESCRIPTION: This event is fired when a message is deleted from the folder
Public Sub Folder_OnMessageDeleted
    On Error Resume Next

End Sub

' DESCRIPTION: This event is fired when the timer on the folder expires
Public Sub Folder_OnTimer
    On Error Resume Next

End Sub

</SCRIPT>

上一个:网页的结构化与模块化
下一个:CDONTS & DHCP发E-mail例子

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,