想在经公司exchange2003服务器上所有发出的邮件后面自动加上一个企业的统一落款（类似电子签名）应该怎么做？？？

现成的功能是没有的。需要编程实现。可惜的是我一直没有找到这个文档，去年有见过。。

那就麻烦了

不用那么麻烦的，只是个小脚本，注册一下就可以了。看这个KB：
http://support.microsoft.com/default.aspx?scid=kb;EN-US;317327。
但需要注意的是MAPI的邮件不能。详细请参考MSDN，有关脚本文件，可以在MSDN中下载，没有的可以找我要。

多谢啦,我试试

这个问题我也想知道,同拜!!
请指教!!

我要找到的就是这个东东，看来Yinjie又要写一个Setp by setp了，呵呵

有人能搞定吗？

Dim TextDisclaimer As String
Dim HTMLDisclaimer As String

Implements IEventIsCacheable
Implements CDO.ISMTPOnArrival

Private Sub IEventIsCacheable_IsCacheable()
'Just returns S_OK.
End Sub

Private Sub Class_Initialize()
'TODO: Replace the sample disclaimer text with your own text.
TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer Text."
HTMLDisclaimer = "

DISCLAIMER:
Sample Disclaimer Text"
End Sub

Private Sub ISMTPOnArrival_OnArrival(ByVal Msg As CDO.IMessage, EventStatus As CDO.CdoEventStatus)
If Msg.HTMLBody <> "" Then
Dim szPartI As String
Dim szPartII As String
Dim pos As Integer

'Search for the "" tag and insert the 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 <> "" Then
Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf
End If

'Commit the content changes to the transport ADO Stream object.
Msg.DataSource.Save
EventStatus = cdoRunNextSink
End Sub

怎么用啊？楼上的老大，啊能说清楚点，编这个程序怎么使啊？