邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: exchange2003企业落款转帖 [打印本页]

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

作者: 钉子 时间: 2005-1-19 16:41
标题: re:http://www.5dmail.ne...
<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> 
 
我想还是大家自己试试，有问题再提出来。确实没空写这个文档。

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

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.net/)