exchange2003免责声明不生效

linn_lee

按MS的KB http://support.microsoft.com/kb/317680/zh-cn的方法,设置之后不生效!不知道为什么?
环境:EXCHANGE 2003 SP2 ENTERPRISE,前后端都设置过了,其实我也不知道在前端还是后端设置,设置之后,不管用MAPI方式,还是SMTP方式,往组织外的一个 SMTP 收件人发送电子邮件,都没有免责声明!请高手指点,TKS!

钉子

我帮你上传上来

michael2046

http://bbs.winos.cn/thread-35096-1-1.html
这个我写的

michael2046

10楼的脚本不错~~~~

linn_lee

还是你对这个脚本理解得更深入,还定义了几个变量,强!

antsly

呵！免责声明设定成功。以下代码可供参考：
<SCRIPT LANGUAGE="VBScript">
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
   Dim text1,text2,text3
   text1="EMAIL CONFIDENTIALITY NOTICE:"
   text2="This electronic message and any attachments may be confidential. If you are not the intended recipient, please do not disclose the contents to anyone,and notify the sender by e-mail; delete the message and destroy all printed hard copies. Thank you for your cooperation."
   text3="Copyright  All Rights Reserved"

   TextDisclaimer = vbCrLf & text1 & vbCrLf & text2 & vbCrLf &text3
   HTMLDisclaimer = "<p></p><font style='font-size:13px;'><p><u><i>" &text1& "</u></i><br><br>" & text2 & "<br><br>" &text3&"</p></font>"
   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>

linn_lee

<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>

你把这个脚本直接加上去,不做任何修改试试,如果能加上去,表示你设置步骤没问题,问题就在于这个脚上你修改的内容上了!

linn_lee

几天没上了,还真有人对这个感兴趣,呵呵!
如果你是前后端环境,那直接设在前端就没问题了,如果这有一台EXCHANGE SERVER那就比较麻烦了!

antsly

楼主，分享一个，我按KB测试了一下，也没有成功！！

dinnes

linn_lee,可否将你的整个过程详细说明一下。我想知道通过Outlook MAPI这种方式的可否添加免责声明。3Q。