exchange2003企业落款 转帖

wghacker

我在网上找到个脚本，但我不知道怎么加上去，版主帮帮忙，讲详细点好吗？？谢谢~！<br>
<br>
<br>
Dim TextDisclaimer As String<br>
Dim HTMLDisclaimer As String<br>
<br>
Implements IEventIsCacheable<br>
Implements CDO.ISMTPOnArrival<br>
<br>
Private Sub IEventIsCacheable_IsCacheable()<br>'Just returns S_OK.<br>
End Sub<br>
<br>
Private Sub Class_Initialize()<br>'TODO: Replace the sample disclaimer text with your own text.<br>TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer Text."<br>HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer Text"<br>
End Sub<br>
<br>
Private Sub ISMTPOnArrival_OnArrival(ByVal Msg As CDO.IMessage, EventStatus As CDO.CdoEventStatus)<br>If Msg.HTMLBody <> "" Then<br>Dim szPartI As String<br>Dim szPartII As String<br>Dim pos As Integer<br>
<br>'Search for the "</body>" tag and insert the disclaimer before that tag.<br>pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare)<br>szPartI = Left(Msg.HTMLBody, pos - 1)<br>szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1))<br>Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII<br>End If<br>
<br>If Msg.TextBody <> "" Then<br>Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf<br>End If<br>
<br>'Commit the content changes to the transport ADO Stream object.<br>Msg.DataSource.Save<br>EventStatus = cdoRunNextSink<br>
End Sub<br>

钉子

<a target=_blank href=../Announce/announce.asp?BoardID=35&ID=64000&Ar=64242&AUpflag=0&Ap=0&Aq=1&r=20829&q=1>../Announce/announce.asp?BoardID=35&ID=64000&Ar=64242&AUpflag=0&Ap=0&Aq=1&r=20829&q=1</a><br>
<br>
我想还是大家自己试试，有问题再提出来。确实没空写这个文档。

yinjie

<a target=_blank href=http://support.microsoft.com/default.aspx?scid=kb>http://support.microsoft.com/default.aspx?scid=kb</a>;EN-US;317327。<br>
将这个代码写到一个DLL文件，注册到事件接收器上，详细见上文。<br>
cscript smtpreg.vbs /add 1 OnArrival SMTPDisclaimer SMTPEventSink.Disclaimer "mail from=*@your-domain-here.com"<br>
cscript smtpreg.vbs /setprop 1 onarrival SMTPDisclaimer Sink ScriptName "c:\path\to\script.dll"<br>
<br>
这样用。