|
re:各位版主都把中文KB和详细步骤写出来了,...
各位版主都把中文KB和详细步骤写出来了,不知道还需要分享什么?教学录像?下面这样步骤如果还不行........<br>
<br>
一、先到版主贴出的下载地址把Exchange SDK下载下来到你的Exchange服务器上安装。下载地址:<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><br>
<br>
二、安装好以后到你的Exchange服务器的C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts目录下新建一个RegEventSink.txt文件,把下面的内容复制粘贴到这个RegEventSink.txt文件中,然后改名为RegEventSink.cmd。<br>
复制此内容:<br>
cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink "mail from=*@your-domain-here.com"<br>
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName "C:\EventSinkScript.vbs"<br>
(注:上面的*@your-domain-here.com要改成你公司的域名,比如:*@Contoso.msft)<br>
<br>
三、把下面的内容复制粘贴到C:\一个新建的EventSinkScript.txt文件中,并改名为EventSinkScript.vbs<br>
复制此内容:<br>
<SCRIPT LANGUAGE="VBScript"><br>
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)<br>TextDisclaimer = vbCrLf & "郑重声明:" & vbCrLf & "此邮件内容只代表该发件人,与本公司无关."<br>HTMLDisclaimer = "<p></p><p>郑重声明:<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>
四、打开命令提示符,把当前路径转到C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts下,运行RegEventSink.cmd后完成。<br>
<br>
如果上面的声明不适合你公司,可自行修改中文部分。这只能对SMTP提交的邮件做声明,如果是MAPI客户端提交的则不能做声明。 |
|