Exchange 2003 可以設定 confidentiality footers 嗎?

exchenge

shiouwei85 2011-03-09 15:17:43 ‧ 7057 瀏覽

請問一下在Exchange 2003 可以設定所有寄出的MAIL 都加上
confidentiality footers嗎，就是有些MAIL最下方的版權宣告網站位址等資訊!
不是MAIL簽名檔~~
煩請解答~~感謝喔!!

範例如下:

簽名檔
XXXXXXXXXXXXXXXXX

confidentiality footers ↓
________________________________________
本信件可能包含本公司機密資訊，非指定之收件者，請勿使用或揭露本信件內容，並請銷毀此信件。
This email and any attachments contain information from Young Fast Optoelectronics Co., Ltd( hereinafter as "YFO"). which may be confidential and/or privileged. Please do not use or disclose it to unpermitted third party. The information is intended to be for the use of the individual or entity named on this email. If you are not the intended recipient, be aware that any disclosure, copying, distribution or use of the contents of this email is strictly prohibited, and delete it please. Any information unrelated to business of YFO, shall not be deemed as authorized by YFO. If you receive this email in error, please notify us by reply email and delete this email and attachments immediately so that we can arrange for the retrieval of the original documents at no cost to you.

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

a218066

iT邦研究生 2 級 ‧ 2011-03-09 15:41:18

最佳解答

可以請照官方設定就可,把下面程式碼存成EventSinkScript.vbs檔就可以了,在照官方步驟執行
http://support.microsoft.com/kb/317680/zh-tw

&lt;pre class="c" name="code">&lt;SCRIPT LANGUAGE="VBScript">
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
   TextDisclaimer = vbCrLf & "重要通告:" & vbCrLf & "此電子郵件預定只由有權接收此郵件所含機密資訊的人員來接收。 寄給客戶及供應商的電子郵件可能包含受法律保護的機密資訊。 除非您是此郵件的預定收件者，否則請不要閱讀、複製、轉寄或儲存此郵件。 如果您誤收此郵件，請將此郵件轉寄給寄件者，並將此郵件自您的電腦系統中完全刪除。 ."
   HTMLDisclaimer = "&lt;p>&lt;/p>&lt;p>重要通告::&lt;br>此電子郵件預定只由有權接收此郵件所含機密資訊的人員來接收。 寄給客戶及供應商的電子郵件可能包含受法律保護的機密資訊。 除非您是此郵件的預定收件者，否則請不要閱讀、複製、轉寄或儲存此郵件。 如果您誤收此郵件，請將此郵件轉寄給寄件者，並將此郵件自您的電腦系統中完全刪除。 ."

   If Msg.HTMLBody &lt;> "" Then
      'Search for the "" tag and insert our disclaimer 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 &lt;> "" 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

   EventStatus = cdoRunNextSink
End Sub
&lt;/SCRIPT>