各位老大,前几天想给我们公司的Exchange服务器发送到外部的邮件添加一个免责声明(企业落款),在论坛里面查了很久,都是给的一个KB的链接,在5Dmail里面也是一个链接。今天研究了一下那个KB。自己做成功了,现在发到论坛里面,给大家做个参考,如果有什么不对的或者错的地方,请各位老大不要笑话我。<br>
<br>
如何添加免责声明<br>本文分步介绍如何使用 SMTP 传输事件接收器向出站 SMTP 电子邮件添加“免责声明”。<br><br>本文参考KB:317327 <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>
<br>
中文版:<a target=_blank href=http://support.microsoft.com/kb/317680>http://support.microsoft.com/kb/317680</a><br>
<br>
<br>
首先:打开记事本,建立一个脚本。内容如下:<br>
<SCRIPT LANGUAGE="VBScript"><br>
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)<br>TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript."<br>HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>这里加入你公司的免责声明,注意不要在中间出现双引号."<br>
<br>If Msg.HTMLBody <> "" Then<br>'Search for the "</body>" tag and insert our discliamer 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 ' Commit the changes into the transport Stream<br>
<br>pEventStatus = cdoRunNextSink<br>
End Sub<br>
</SCRIPT><br>
<br>
然后,把文件保存成EventSinkScript.vbs,或者任何任何你自己需要的文件名。保存到C盘根目录。<br>
<br>
第二步:在你的Exchange服务器上面安装Exchange SDK。我用的是这个(<a target=_blank href=http://download.microsoft.com/download/9/e/7/9e7fa92c-1226-4c30-ad7c-45c4875c7d38/exchangesdkdocs.exe>http://download.microsoft.com/download/9/e/7/9e7fa92c-1226-4c30-ad7c-45c4875c7d38/exchangesdkdocs.exe</a>),下载后,安装好SDK后,按照默认安装路径,在C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts,里面应该有2个脚本文件。<br>
<br>
安装好SDK后,就可以注册事件接受器了。<br>
到命令行下:<br>
Cd C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts<br>
Cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost<br>
CDO.SS_SMTPOnArrivalSink "mail from=*@你们公司的邮件后缀"<br>
<br>
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName "C:\EventSinkScript.vbs"<br>
<br>
<br>
好了。现在你可以给你的公司外部的邮箱发一个测试邮件了,在每封邮件的最下面,都会有一个你添加的免责声明的。<br>
<br>
作者:天擎<br>
转自:Winmag |