ORF反垃圾邮件系统

邮件服务器-邮件系统-邮件技术论坛(BBS)

用户名  找回密码
 会员注册
查看: 48508|回复: 52
打印 上一主题 下一主题

exchange2003怎么加企业落款

[复制链接]
跳转到指定楼层
顶楼
发表于 2005-1-4 17:02:49 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
想在经公司exchange2003服务器上所有发出的邮件后面自动加上一个企业的统一落款(类似电子签名)应该怎么做???
沙发
发表于 2005-1-5 17:06:48 | 只看该作者

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

这个问题我也想知道,同拜!!<br>
请指教!!
藤椅
发表于 2005-1-4 17:11:19 | 只看该作者

re:现成的功能是没有的。需要编程实现。可惜的...

现成的功能是没有的。需要编程实现。可惜的是我一直没有找到这个文档,去年有见过。。
板凳
 楼主| 发表于 2005-1-4 18:08:14 | 只看该作者

re:那就麻烦了

那就麻烦了
报纸
发表于 2005-1-5 00:54:09 | 只看该作者

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中下载,没有的可以找我要。
地板
 楼主| 发表于 2005-1-5 10:04:35 | 只看该作者

re:多谢啦,我试试

多谢啦,我试试
7
发表于 2005-1-5 18:37:49 | 只看该作者

re:我要找到的就是这个东东,看来Yinjie...

我要找到的就是这个东东,看来Yinjie又要写一个Setp by setp了,呵呵
8
 楼主| 发表于 2005-1-7 11:19:11 | 只看该作者

re:有人能搞定吗?

有人能搞定吗?
9
发表于 2005-1-7 13:44:57 | 只看该作者

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>
10
 楼主| 发表于 2005-1-7 14:51:29 | 只看该作者

re:怎么用啊?楼上的老大,啊能说清楚点,编这...

怎么用啊?楼上的老大,啊能说清楚点,编这个程序怎么使啊?
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

小黑屋|手机版|Archiver|邮件技术资讯网

GMT+8, 2025-1-12 14:36

Powered by Discuz! X3.2

© 2001-2016 Comsenz Inc.

本论坛为非盈利中立机构,所有言论属发表者个人意见,不代表本论坛立场。内容所涉及版权和法律相关事宜请参考各自所有者的条款。
如认定侵犯了您权利,请联系我们。本论坛原创内容请联系后再行转载并务必保留我站信息。此声明修改不另行通知,保留最终解释权。
*本论坛会员专属QQ群:邮件技术资讯网会员QQ群
*本论坛会员备用QQ群:邮件技术资讯网备用群

快速回复 返回顶部 返回列表