你说的那个论坛我看了,实现步骤有点麻烦,其实根本不用建第二个SMTP虚拟服务器,我给你一个文档,你看看就知道了,我们公司的免责就是我按照下面步骤做的!
一、先把Exchange SDK下载下来到你的Exchange服务器上安装。下载地址:
http://download.microsoft.com/do ... exchangesdkdocs.exe
二、安装好以后到你的Exchange服务器的C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts目录下新建一个RegEventSink.txt文件,把下面的内容复制粘贴到这个RegEventSink.txt文件中,然后改名为RegEventSink.cmd。
复制此内容:
cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink "mail from=*@huhu.com"
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName "C:\EventSinkScript.vbs"
(注:上面的*@your-domain-here.com要改成你公司的域名,比如:*@Contoso.msft)
三、把下面的内容复制粘贴到C:\一个新建的EventSinkScript.txt文件中,并改名为EventSinkScript.vbs
复制此内容:
<SCRIPT LANGUAGE="VBScript">
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
TextDisclaimer = vbCrLf & "郑重声明:" & vbCrLf & "此邮件内容只代表该发件人,与本公司无关."
HTMLDisclaimer = "<p></p><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>
四、打开命令提示符,把当前路径转到C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts下,运行RegEventSink.cmd后完成
注意:里面的中文内容“此邮件内容只代表该发件人,与本公司无关”你可以自己改的。