我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp邮件/FSO > howto: send a mail, exchange script read your mail body
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

howto: send a mail, exchange script read your mail body 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-28
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>


【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·ASP中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。