在Exchange 2003内部发送邮件中添加免责申明

在Exchange 2003内部发送邮件中添加免责申明
本文主要讨论在只有一台Exchange服务器的环境中，不使用第三方软件来实现免责申明的添加。

参考文档：
/kb/317680/zh-cn
/kb/273233/
Exchange SDK 下载地址：下载解压并安装
/downloa ... &displaylang=en
根据KB273233，客户端Outlook使用Exchange模式时使用一般的方法是无法实现的，本文的方法是使用2个SMTP虚拟服务器实现的。

这个方法的缺点：当发送邮件量很大时，降低邮件服务器的工作效率；
1. 给服务器添加第二个IP地址
2. 建立第二个SMTP虚拟服务器：“Disclaimer SMTP Server”，选择IP：192.16 8.1.114
3. 选择默认SMTP虚拟服务器属性-常规，设置使用IP地址：192.168.1.112
4. 选择默认SMTP虚拟服务器属性-传递-高级，在虚拟域中添加IP：192.168.1.11 4
5. 选择“Disclaimer SMTP Server”虚拟服务器-属性-访问-中继，添加IP：192. 168.1.112为允许
6. 新建一个SMTP连接器，选择桥头服务器为“Disclaimer SMTP Server”
7. 根据KB317680，在C盘根目录建立EventSinkScript.vbs文件，脚本内容请根据需要自行更改，但需要注意，下图中TextDisclaimer和HTMLDisclaimer的红线字段必须一样
8. 在CMD中浏览到C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts\，执行以下命令：
cscript smtpreg.vbs /add 2 onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink "mail from=*@"
@后边是你要设置的域的域名
cscript smtpreg.vbs /setprop 2 onarrival SMTPScriptingHost Sink ScriptName "C:\ EventSinkScript.vbs"
如果此命令成功执行，将收到由脚本生成的成功消息。

要取消注册此事件，请键入以下内容：
cscript smtpreg.vbs /remove 2 OnArrival SMTPScriptingHost
9. 重启Exchange Routing Engine及SMTP服务，测试设置是否成功，如不成功，请仔细检查脚本内容
10. 以下脚本是我测试成功的，邮件预览图如下：
<SCRIPT LANGUAGE="VBScript">
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
TextDisclaimer = vbCrLf &
"****************************************************************************** ******************
****************************************************************" & vbCrLf & vb CrLf & "This e-
mail message including any attachments is for the sole use of the intended reci pient(s) and may
contain privileged or confidential information. Any unauthorized review, use, d isclosure or
distribution is prohibited. If you are not the intended recipient, please immed iately contact the
sender by reply e-mail and delete the original message and destroy all copies t hereof. " & vbCrLf
& vbCrLf & "此邮件之内容及所包含之所有附件可能含有特权或机密资讯，仅供列于收件人之列之收件人阅读。

任何未经授权之阅读、使用、披露或转发均被禁止。

若您未被包含在收件人之列，请立即回复电子邮件通知
发件人，刪除原始资讯及销毁所有备份。

" & vbCrLf &
"****************************************************************************** ******************
****************************************************************"
HTMLDisclaimer =
"<p></p><p>******************************************************************** ******************
**************************************************************************<br>T his e-mail message
including any attachments is for the sole use of the intended recipient(s) and may contain
privileged or confidential information. Any unauthorized review, use, disclosur e or distribution
is prohibited. If you are not the intended recipient, please immediately contac t the sender by
reply e-mail and delete the original message and destroy all copies thereof. </ p>此邮件之内容及所
包含之所有附件可能含有特权或机密资讯，仅供列于收件人之列之收件人阅读。

任何未经授权之阅读、使用、
披露或转发均被禁止。

若您未被包含在收件人之列，请立即回复电子邮件通知发件人，刪除原始资讯及销毁所
有备份。

<br>*************************************************************************** ******************
*******************************************************************"
If Msg.HTMLBody <> "" Then
'Search for the "</body>" tag and insert our discliamer 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 ' Commit the changes into the transport Stream pEventStatus = cdoRunNextSink
End Sub
</SCRIPT>。