微软Exchange Server 中带一个能够通过浏览器收发邮件的ASP源码 (100分)

llc99 · 1999-10-13

1、请网友给我寄一份微软Exchange Server软件；2、微软Exchange Server 中能够通过浏览器收发邮件的ASP源码
在哪个目录下。谢谢！

Eldorado · 1999-10-13

正版？盜版？怎麽會這樣呢

cAkk · 1999-10-13

寄一份微软Exchange Server???!!!!

cytown · 1999-10-13

faint:-(

CJ · 1999-10-13

cytown 抢我生意呀？
faint too

onedolph · 1999-10-16

关注

cytown · 1999-10-18

好象可以用asp直接发邮件smtp方式, 需要使用一个WMSC(忘了)之类的dll, 注册
修改注册表, 然后可以使用了. 如果要, 我回去找找

llc99 · 1999-10-18

多人接受答案了。

cytown · 1999-10-18

faint#@%@#%^^%&^&*^$#!$@!

onedolph · 1999-10-18

??????
xmb?

cAkk · 1999-10-19

这钱来的真容易啊!---联我自己都没搞明白怎么回事? 呵呵.

cytown · 1999-10-19

</pre>
<big>howto:send a mail, subject=db_name, body=table_name, get query result as email</big>
<big>关键词：</big>Sql Server, ASP, Exchange


no error handle, no optimize, just demo test... 
paste this to your exchange event script 
========================================================= 
&lt;SCRIPT RunAt=Server Language=VBScript&gt; 
 
 
Option Explicit 
 
 
' Event Handlers 
'--------------------------------------------------------------------- 
' DESCRIPTION: This event is fired when a new message is added to the folder 
 
Public Sub Folder_OnMessageCreated 
 
&nbsp;&nbsp;&nbsp;&nbsp;On Error Resume Next 
 
&nbsp;&nbsp;&nbsp;&nbsp;Dim AMSession 
&nbsp;&nbsp;&nbsp;&nbsp;Dim fldrOutbox 
&nbsp;&nbsp;&nbsp;&nbsp;Dim msgTarget 
&nbsp;&nbsp;&nbsp;&nbsp;Dim fldrTarget 
 
&nbsp;&nbsp;&nbsp;&nbsp;Dim oStores 
&nbsp;&nbsp;&nbsp;&nbsp;Dim Temp 
&nbsp;&nbsp;&nbsp;&nbsp;Dim idTargetFolder 
&nbsp;&nbsp;&nbsp;&nbsp;Dim idTargetMessage 
&nbsp;&nbsp;&nbsp;&nbsp;Dim msgResponse 
 
&nbsp;&nbsp;&nbsp;&nbsp;idTargetFolder = EventDetails.FolderID 
&nbsp;&nbsp;&nbsp;&nbsp;idTargetMessage = EventDetails.MessageID 
 
&nbsp;&nbsp;&nbsp;&nbsp;Set AMSession = EventDetails.Session 
&nbsp;&nbsp;&nbsp;&nbsp;Set fldrOutbox = AMSession.Outbox 
 
&nbsp;&nbsp;&nbsp;&nbsp;Set fldrTarget = AMSession.GetFolder( idTargetFolder, Null ) 
&nbsp;&nbsp;&nbsp;&nbsp;Set msgTarget = AMSession.GetMessage( idTargetMessage, Null ) 
' ========================================================================= 
 
&nbsp;&nbsp;&nbsp;&nbsp;Dim oConn 
&nbsp;&nbsp;&nbsp;&nbsp;Dim oRs 
&nbsp;&nbsp;&nbsp;&nbsp;Dim Index 
&nbsp;&nbsp;&nbsp;&nbsp;dim strDBResult 
&nbsp;&nbsp;&nbsp;&nbsp;dim dbcnstr 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;Set oConn = CreateObject(&quot;ADODB.Connection&quot

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbcnstr = &quot;driver={SQL Server};server=sqlserver;database=&quot; &amp; msgTarget.subject &amp; &quot;;uid=sa;pwd=&quot; 
 
&nbsp;&nbsp;&nbsp;&nbsp;oConn.Open dbcnstr 
 
&nbsp;&nbsp;&nbsp;&nbsp;Set oRs = oConn.Execute(&quot;SELECT * From &quot; &amp; msgTarget.text) 
&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;Do while (Not oRs.eof) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For Index=0 to (oRs.fields.count-1) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strDBResult = strDBResult &amp; &quot;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&quot; &amp; chr(9) &amp; oRs(Index) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strDBResult = strDBResult &amp; chr(13) 
&nbsp;&nbsp;&nbsp;&nbsp;oRs.MoveNext 
&nbsp;&nbsp;&nbsp;&nbsp;Loop 
 
&nbsp;&nbsp;&nbsp;&nbsp;oRs.close 
&nbsp;&nbsp;&nbsp;&nbsp;oConn.close 
 
' =========================================================================&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;Set msgResponse = fldrOutbox.Messages.Add( &quot;Query Result for database:&quot; &amp; msgTarget.subject &amp; &quot;;table:&quot; &amp; msgTarget.text, strDBResult) 
&nbsp;&nbsp;&nbsp;&nbsp;msgResponse.Recipients.Add &quot;&quot;, &quot;&quot;, 1, msgTarget.Sender.ID 
&nbsp;&nbsp;&nbsp;&nbsp;msgResponse.Recipients.Resolve(False) 
&nbsp;&nbsp;&nbsp;&nbsp;msgResponse.Send 
&nbsp;&nbsp;&nbsp;&nbsp; 
End Sub 
 
' DESCRIPTION: This event is fired when a message in the folder is changed 
Public Sub Message_OnChange 
&nbsp;&nbsp;&nbsp;&nbsp;On Error Resume Next 
 
End Sub 
 
' DESCRIPTION: This event is fired when a message is deleted from the folder 
Public Sub Folder_OnMessageDeleted 
&nbsp;&nbsp;&nbsp;&nbsp;On Error Resume Next 
 
End Sub 
 
' DESCRIPTION: This event is fired when the timer on the folder expires 
Public Sub Folder_OnTimer 
&nbsp;&nbsp;&nbsp;&nbsp;On Error Resume Next 
 
End Sub 
 
&lt;/SCRIPT&gt;&nbsp;

微软Exchange Server 中带一个能够通过浏览器收发邮件的ASP源码 (100分)

llc99

Unregistered / Unconfirmed

Eldorado

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

onedolph

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

llc99

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

onedolph

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

Similar threads