最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
howto: send a mail, exchange script read your mail
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
paste this to your exchange event script
========================================================
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")
-
上一个: jmail4.1用pop3收信的例子。
-
下一个: ASP用JMail、CDO发送邮件
相关文章
- 无线网连接提示没有有效的IP配置解决方法 03-08
- javascript实现下雨效果 07-28
- javascript实现圣旨卷轴展开效果(代码分享) 07-20
- JavaScript实现星星等级评价功能 07-14
- javascript实现滑动解锁功能 07-14
- 十大热门的JavaScript框架和库 07-13