站内搜索
分类列表
本类阅读排行
本类推荐文章
- ASP技巧：让Len,Left,Right函数识...
- 用ASP实现IE地址栏参数的判断
- 如何实现ASP.NET网站个性化
- 如何在Asp.net中使用HtmlArea编辑...
- 用ASP.Net实现在线压缩和解压缩
- ASP实现不存在的网页就自动发送邮...
- 用ASP取出HTML里面的图片地址的函...
- asp.net跳转页面的三种方法比较
- 一个Winsock组件
- 用WinSock设计Chat程序(转)
- 在MFC应用中深入定制WebBrowser控...
- 这几天有人问关于编应.dll的问题，...
- 在Visual J++中编写ASP COM组件(转...
- 一个显示Grid的VBScript对象
- 好东西，快来看呀：（转载自中华网...
广告
howto:send a mail, subject=db_name, body=table_name, get query result as email
作者： 来源： 点击： 日期：2007-3-29 23:34:33
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=" & msgTarget.subject & ";uid=sa;pwd="
oConn.Open dbcnstr
Set oRs = oConn.Execute("SELECT * From " & msgTarget.text)
Do while (Not oRs.eof)
For Index=0 to (oRs.fields.count-1)
strDBResult = strDBResult & " " & chr(9) & oRs(Index)
Next
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=" & msgTarget.subject & ";uid=sa;pwd="
oConn.Open dbcnstr
Set oRs = oConn.Execute("SELECT * From " & msgTarget.text)
Do while (Not oRs.eof)
For Index=0 to (oRs.fields.count-1)
strDBResult = strDBResult & " " & chr(9) & oRs(Index)
Next
howto:send a mail, subject=db_name, body=table_name, get query result as email 评论