exchange2003怎么加企业落款
想在经公司exchange2003服务器上所有发出的邮件后面自动加上一个企业的统一落款（类似电子签名）应该怎么做？？？re:这个问题我也想知道,同拜!!请指教!...
这个问题我也想知道,同拜!!<br>请指教!!
re:现成的功能是没有的。需要编程实现。可惜的...
现成的功能是没有的。需要编程实现。可惜的是我一直没有找到这个文档，去年有见过。。re:那就麻烦了
那就麻烦了re:不用那么麻烦的，只是个小脚本，注册一下就...
不用那么麻烦的，只是个小脚本，注册一下就可以了。看这个KB：<br><a target=_blank href=http://support.microsoft.com/default.aspx?scid=kb>http://support.microsoft.com/default.aspx?scid=kb</a>;EN-US;317327。<br>
但需要注意的是MAPI的邮件不能。详细请参考MSDN，有关脚本文件，可以在MSDN中下载，没有的可以找我要。
re:多谢啦,我试试
多谢啦,我试试re:我要找到的就是这个东东，看来Yinjie...
我要找到的就是这个东东，看来Yinjie又要写一个Setp by setp了，呵呵re:有人能搞定吗？
有人能搞定吗？re:Dim TextDisclaimer A...
Dim TextDisclaimer As String<br>Dim HTMLDisclaimer As String<br>
<br>
Implements IEventIsCacheable<br>
Implements CDO.ISMTPOnArrival<br>
<br>
Private Sub IEventIsCacheable_IsCacheable()<br>'Just returns S_OK.<br>
End Sub<br>
<br>
Private Sub Class_Initialize()<br>'TODO: Replace the sample disclaimer text with your own text.<br>TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer Text."<br>HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer Text"<br>
End Sub<br>
<br>
Private Sub ISMTPOnArrival_OnArrival(ByVal Msg As CDO.IMessage, EventStatus As CDO.CdoEventStatus)<br>If Msg.HTMLBody <> "" Then<br>Dim szPartI As String<br>Dim szPartII As String<br>Dim pos As Integer<br>
<br>'Search for the "</body>" tag and insert the disclaimer 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<br>EventStatus = cdoRunNextSink<br>
End Sub<br>
