在Exchange2003培训中，客户有问到如何在发送邮件时添加免责声明，Exchange2007中可以通过策略规则设定，非常简单，在2003中，只能使用脚本的方法来添加，而且对MAPI客户无法使用
 

如何在 Visual Basic 脚本中向出站 SMTP 邮件添加免责声明

概要

本文分步介绍如何使用 SMTP 传输事件接收器向出站 SMTP 电子邮件添加“免责声明”。

返回页首

回到顶端

创建事件接收器

要创建事件接收器，请将以下代码粘贴到一个新的文件中并将其另存为 EventSinkScript.vbs：

<SCRIPT LANGUAGE="VBScript"> Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus) TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript." HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript." 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>

返回页首

回到顶端

注册事件接收器

要注册事件接收器，请使用随 Exchange SDK 一起安装的 Smtpreg.vbs 文件。在命令提示符处，浏览到 ...\Exchange SDK\SDK\Support\CDO\Scripts 文件夹，并键入以下命令（确保 EventSinkScript.vbs 的路径正确）：

cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink "mail from=*@your-domain-here.com"
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName "C:\EventSinkScript.vbs"

如果此命令成功执行，您将收到由脚本生成的成功消息。

要取消注册此事件，请键入以下内容：

cscript smtpreg.vbs /remove 1 OnArrival SMTPScriptingHost

有关使用 Smtpreg.vbs 注册事件的更多信息，请参见下面 MSDN 网站上的“Managing Event Bindings”（管理事件绑定）主题：

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_managing_event_bindings.asp (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_managing_event_bindings.asp)

返回页首

回到顶端

测试事件接收器

要测试接收器，请向您组织外的一个 SMTP 收件人发送一封电子邮件。收件人应当收到一个在末尾添加了“免责声明”的经修改的邮件。

注意：如果您使用一个诸如 Microsoft Outlook 这样的 MAPI 客户端发送电子邮件，收件人将接收不到修改的邮件。这是因为在电子邮件触发 SMTP 传输事件时，使用 MAPI 提交的邮件不是 SMTP 格式。因此，由事件代码做出的更改不能持续。