2个SMTP虚拟服务器环境下添加免责声明
来源：互联网
作者：west263.com
时间：2008-02-23
西部数码-全国虚拟主机10强！40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
环境:1台Exchange有2个SMTP虚拟服务器，一个监听25端口，外连26端口；一个监听26端口，外连25端口
需求:第一个服务器对香港；深圳，没有免责申明，第二个服务器对外，要有免责申明。
操作:1.把下面这段存为***.vbs
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
TextDisclaimer = vbCrLf & “DISCLAIMER:” & vbCrLf & “Sample Disclaimer added in a VBScript.”
HTMLDisclaimer = “DISCLAIMER:
Sample Disclaimer added in a VBScript.”
中国网管联盟
If Msg.HTMLBody “” Then
‘Search for the “” tag and insert our discliamer before that tag.
pos = InStr(1, Msg.HTMLBody, “”, 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 www_bitscn_com
2.安装Exchange SDK，在命令行导航到C:\Program files\Exchange SDK\SDK\Support\CDO\Scripts
3.输入命令:cscript smtpreg.vbs /add 1(说明:1为第一个) onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink “mail from=*@your-domain-here.com”
cscript smtpreg.vbs /setprop 1(同上) onarrival SMTPScriptingHost Sink ScriptName “C:\***.vbs”
如要取消:cscript smtpreg.vbs /remove 1(同上) OnArrival SMTPScriptingHost
bbs.bitsCN.com
但是有个问题就是只能应用于MAPI客户端
www.bitsCN.com
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
