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

标题: exchange2003怎么加企业落款 [打印本页]

作者: lincolnliu 时间: 2005-1-4 17:02
标题: exchange2003怎么加企业落款
想在经公司exchange2003服务器上所有发出的邮件后面自动加上一个企业的统一落款（类似电子签名）应该怎么做？？？

作者: 钉子 时间: 2005-1-4 17:11
标题: re:现成的功能是没有的。需要编程实现。可惜的...
现成的功能是没有的。需要编程实现。可惜的是我一直没有找到这个文档，去年有见过。。

作者: lincolnliu 时间: 2005-1-4 18:08
标题: re:那就麻烦了
那就麻烦了

作者: yinjie 时间: 2005-1-5 00:54
标题: re:不用那么麻烦的，只是个小脚本，注册一下就...
不用那么麻烦的，只是个小脚本，注册一下就可以了。看这个KB： 
<a target=_blank href=http://support.microsoft.com/default.aspx?scid=kb>http://support.microsoft.com/default.aspx?scid=kb</a>;EN-US;317327。 
但需要注意的是MAPI的邮件不能。详细请参考MSDN，有关脚本文件，可以在MSDN中下载，没有的可以找我要。

作者: lincolnliu 时间: 2005-1-5 10:04
标题: re:多谢啦,我试试
多谢啦,我试试

作者: spfans 时间: 2005-1-5 17:06
标题: re:这个问题我也想知道,同拜!!请指教!...
这个问题我也想知道,同拜!! 
请指教!!

作者: 钉子 时间: 2005-1-5 18:37
标题: re:我要找到的就是这个东东，看来Yinjie...
我要找到的就是这个东东，看来Yinjie又要写一个Setp by setp了，呵呵

作者: lincolnliu 时间: 2005-1-7 11:19
标题: re:有人能搞定吗？
有人能搞定吗？

作者: eo168 时间: 2005-1-7 13:44
标题: re:Dim TextDisclaimer A...
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 "</body>" tag and insert the disclaimer 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 EventStatus = cdoRunNextSink 
End Sub

作者: lincolnliu 时间: 2005-1-7 14:51
标题: re:怎么用啊？楼上的老大，啊能说清楚点，编这...
怎么用啊？楼上的老大，啊能说清楚点，编这个程序怎么使啊？

作者: 85501188 时间: 2005-1-9 21:35
标题: re:Setp by setp怎么还没有出来啊...
Setp by setp怎么还没有出来啊？！准备做备份..............

作者: lincolnliu 时间: 2005-1-18 08:42
标题: re:没有人做过吗？楼上的方法我都试过了，总是...
没有人做过吗？楼上的方法我都试过了，总是不行，不知道问题出在哪里了，救命啊

作者: lincolnliu 时间: 2005-1-19 17:44
标题: re:救命啊,没有人会吗?
救命啊,没有人会吗?

作者: lincolnliu 时间: 2005-1-21 18:24
标题: re:怎么啦,真的没人用过吗?
怎么啦,真的没人用过吗?

作者: 钉子 时间: 2005-1-21 23:15
标题: re:方法提出来了，真正需要为什么不按方式试试...
方法提出来了，真正需要为什么不按方式试试呢？

作者: lincolnliu 时间: 2005-1-24 13:38
标题: re:你怎么知道我没有试过，没有用才会继续问
你怎么知道我没有试过，没有用才会继续问

作者: yinjie 时间: 2005-1-24 13:56
标题: re:我已经给出了那个KB，和其相关的资源。你...
我已经给出了那个KB，和其相关的资源。你还需要什么？你有没有编写该脚本并注册到SMTP事件接收器中？

作者: bigsw 时间: 2005-1-26 11:30
标题: re:http://support.micro...
<a target=_blank href=http://support.microsoft.com/default.aspx?scid=kb>http://support.microsoft.com/default.aspx?scid=kb</a>;EN-US;317327 
 
Yinjie, 根据你这个文档,我在exchange2k+win2k的各个版本的环境下做过测试,没有成功过!我注意到这篇文档中对OS和exchange的版本有要求,还要求安装: 1)Collaboration Data Objects for Exchange 2000 6.0 2)Microsoft Collaboration Data Objects 2.0, when used with:Microsoft Windows Server 2003, Standard Edition or Microsoft Windows 2000 Standard Edition 我不知道通过怎样一个正规的方法去测试这两个控件的存在?如果你成功的测试过这篇文档,能告诉我你的测试环境吗?盼指教~~ 
 
测试环境: exchange2k standard + win2k srv exchange2k standard sp3 + win2k srv sp3 exchange2k standard sp3 + win2k srv sp4

作者: yinjie 时间: 2005-1-26 21:24
标题: re:http://msdn.microsof...
<a target=_blank href=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_managing_event_bindings.asp>http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_managing_event_bindings.asp</a> 
你看一下这个连接。你说的那两个东西是在建立Visual Basic ActiveX DLL文件时需要的。CDO在EXCHANGE SDK里包含。

作者: JackKen 时间: 2005-2-1 16:13
标题: re:哇，我也在找啊，果然是精华唉。
哇，我也在找啊，果然是精华唉。

作者: 钉子 时间: 2005-5-30 13:34
标题: re:各位老大，前几天想给我们公司的Excha...
各位老大，前几天想给我们公司的Exchange服务器发送到外部的邮件添加一个免责声明（企业落款），在论坛里面查了很久，都是给的一个KB的链接，在5Dmail里面也是一个链接。今天研究了一下那个KB。自己做成功了，现在发到论坛里面，给大家做个参考，如果有什么不对的或者错的地方，请各位老大不要笑话我。 
 
如何添加免责声明 本文分步介绍如何使用 SMTP 传输事件接收器向出站 SMTP 电子邮件添加“免责声明”。 本文参考KB：317327 <a target=_blank href=http://support.microsoft.com/default.aspx?scid=kb>http://support.microsoft.com/default.aspx?scid=kb</a>;EN-US;317327 
 
中文版：<a target=_blank href=http://support.microsoft.com/kb/317680>http://support.microsoft.com/kb/317680</a> 
 
 
首先：打开记事本，建立一个脚本。内容如下： 
<SCRIPT LANGUAGE="VBScript"> 
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus) TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript." HTMLDisclaimer = "DISCLAIMER: 这里加入你公司的免责声明，注意不要在中间出现双引号." 
 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> 
 
然后，把文件保存成EventSinkScript.vbs，或者任何任何你自己需要的文件名。保存到C盘根目录。 
 
第二步：在你的Exchange服务器上面安装Exchange SDK。我用的是这个（<a target=_blank href=http://download.microsoft.com/download/9/e/7/9e7fa92c-1226-4c30-ad7c-45c4875c7d38/exchangesdkdocs.exe>http://download.microsoft.com/download/9/e/7/9e7fa92c-1226-4c30-ad7c-45c4875c7d38/exchangesdkdocs.exe</a>），下载后，安装好SDK后，按照默认安装路径，在C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts，里面应该有2个脚本文件。 
 
安装好SDK后，就可以注册事件接受器了。 
到命令行下： 
Cd C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts 
Cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost 
CDO.SS_SMTPOnArrivalSink "mail from=*@你们公司的邮件后缀" 
 
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName "C:\EventSinkScript.vbs" 
 
 
好了。现在你可以给你的公司外部的邮箱发一个测试邮件了，在每封邮件的最下面，都会有一个你添加的免责声明的。 
 
作者：天擎 
转自：Winmag

作者: ququ 时间: 2005-8-19 08:44
标题: re:好東東,測一下先
好東東,測一下先

作者: windymax 时间: 2005-8-19 21:18
标题: re:精华帖，ding!
精华帖，ding!

作者: swfzz 时间: 2005-8-20 08:50
标题: re:我照这样做了,可是没有看到任何反应,不知...
我照这样做了,可是没有看到任何反应,不知道,还需要做什么东西!

作者: star 时间: 2005-8-20 16:49
标题: exchange5.5怎么加企业落款
想在從公司exchange5.5服务器上所有发出的邮件后面自动加上一个企业的统一落款（类似电子签名）应该怎么做？？？比如: >>>> company NOTICE - AUTOMATICALLY INSERTED <<<< 
 
******************************** 
******************************** 
******************************** 
******************************** 
******************************** 
******************************** 
>>>>>>>>>>>>>>>>>>>>>>>>>> DISCLAIMER END <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

作者: 钉子 时间: 2005-8-23 00:53
标题: re:Ｆｏｒ　Ｅｘｃｈａｎｇｅ　５．５的设定可...
Ｆｏｒ　Ｅｘｃｈａｎｇｅ　５．５的设定可以参考： 
XFOR: Installing Internet Mail Service Extension Imsext.dll 
 
<A HREF="http://support.microsoft.com/?kbid=258206" TARGET=_blank>http://support.microsoft.com/?kbid=258206</A>

作者: serve 时间: 2005-8-24 00:13
标题: re:这个是免责签名，大家去微软搜索一下就能知...
这个是免责签名，大家去微软搜索一下就能知道。不是很难。 
 
象万科企业就是这样做的！

作者: serve 时间: 2005-9-12 14:24
标题: re:这个东西网上很多的。我建议你先自己找...
这个东西网上很多的。 
我建议你先自己找找，微软有两篇文章，是介绍这个东西的。 
 
但有两个前提条件. 
 
还是搜索先，再问吧.

作者: aaichinasz 时间: 2005-9-12 22:16
标题: re:我测试过怎么说还要安装个什么东西!...
我测试过怎么说还要安装个什么东西! 
 
我的没反映呢 
 
 
是不是还要安装什么东西 
 
他的安装条件是什么呢

作者: pieazhang 时间: 2005-9-16 22:04
标题: re:有没有那位有现成的，把它拿出来分享下了。...
有没有那位有现成的，把它拿出来分享下了。大家都在等着呢，因为我们试了很多方法都没有搞定。

作者: yinjie 时间: 2005-9-16 22:35
标题: re:我晕啊。。。已经有了详细的KB连接了，还...
我晕啊。。。已经有了详细的KB连接了，还要什么做好的东西，就是两个脚本，一个是注册用的一个是属性脚本。还要什么？

作者: yyyfffqqq 时间: 2005-12-5 10:29
标题: re:那位有现成的
那位有现成的

作者: zhuhong4723 时间: 2006-3-16 12:20
标题: re:为什么我写进去的中文,出来都是问号呢?
为什么我写进去的中文,出来都是问号呢?

作者: feitianxiang 时间: 2006-3-16 21:15
标题: re:不错，谢谢！果然是精华，我都找了很长...
不错，谢谢！ 
果然是精华，我都找了很长时间去实现这个功能，也想到用脚本写，但就是无从下手。

作者: atong999888 时间: 2006-3-17 09:03
标题: re:以前我就发现中文出来都是问号, 也就没用...
以前我就发现中文出来都是问号, 也就没用它.

作者: loubingtt 时间: 2006-3-17 11:52
标题: re:2003怎么不行啊
2003怎么不行啊

作者: esky23 时间: 2006-3-21 12:35
标题: re:好东西,也在找这个东西,回头去试下!!!...
好东西,也在找这个东西,回头去试下!!!

作者: aaichinasz 时间: 2006-3-22 09:35
标题: re:还还是没人成功么! 成功的朋友...
还还是没人成功么! 
 
成功的朋友希望可以给我发一份谢谢啊! 
 
mxchina@gmail.com

作者: pieazhang 时间: 2006-3-23 16:47
标题: re:这个问题可是很多人期待解决的啊，希望哪位...
这个问题可是很多人期待解决的啊，希望哪位大侠如果做出来了的话就给大家分享下。

作者: sniqpl008 时间: 2006-3-24 06:38
标题: re:各位版主都把中文KB和详细步骤写出来了，...
各位版主都把中文KB和详细步骤写出来了，不知道还需要分享什么？教学录像？下面这样步骤如果还不行........ 
 
一、先到版主贴出的下载地址把Exchange SDK下载下来到你的Exchange服务器上安装。下载地址：<a target=_blank href=http://download.microsoft.com/download/9/e/7/9e7fa92c-1226-4c30-ad7c-45c4875c7d38/exchangesdkdocs.exe>http://download.microsoft.com/download/9/e/7/9e7fa92c-1226-4c30-ad7c-45c4875c7d38/exchangesdkdocs.exe</a> 
 
二、安装好以后到你的Exchange服务器的C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts目录下新建一个RegEventSink.txt文件，把下面的内容复制粘贴到这个RegEventSink.txt文件中，然后改名为RegEventSink.cmd。 
复制此内容: 
cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink "mail from=*@your-domain-here.com" 
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName "C:\EventSinkScript.vbs" 
（注：上面的*@your-domain-here.com要改成你公司的域名，比如：*@Contoso.msft） 
 
三、把下面的内容复制粘贴到C:\一个新建的EventSinkScript.txt文件中，并改名为EventSinkScript.vbs 
复制此内容： 
<SCRIPT LANGUAGE="VBScript"> 
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus) TextDisclaimer = vbCrLf & "郑重声明:" & vbCrLf & "此邮件内容只代表该发件人，与本公司无关." HTMLDisclaimer = "郑重声明: 此邮件内容只代表该发件人，与本公司无关." 
 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> 
 
四、打开命令提示符，把当前路径转到C:\Program Files\Exchange SDK\SDK\Support\CDO\Scripts下，运行RegEventSink.cmd后完成。 
 
如果上面的声明不适合你公司，可自行修改中文部分。这只能对SMTP提交的邮件做声明，如果是MAPI客户端提交的则不能做声明。

作者: pieazhang 时间: 2006-3-24 08:34
标题: re:大家一起来顶啊
大家一起来顶啊

作者: jin1111 时间: 2006-3-29 11:04
标题: re:我照上面做了，但是没有任何反映啊。
我照上面做了，但是没有任何反映啊。

作者: jones_y 时间: 2006-6-7 10:55
照着上面做是可以了，但是每个人的签名都是一样的，能不能做成每个部门每个人的名称不一样，而其它信息是一样的呢，也就是说能不能做成动态的，如下面的例子：
A发出的邮件签名是这样的：
_________
AA 部  A
**** 公司
_________
B发出的邮件签名是这样的：
_________
BB 部  B
****  公司
_________

作者: 钉子 时间: 2006-6-7 23:53
这是企业声明，切勿把它当作个人签名的功能来理解和使用。

作者: chrisqian 时间: 2006-6-8 07:34
实际上现在一些第3方软件也有这个功能，比如sybrai.

作者: nannyyuan 时间: 2006-6-8 09:25
如果想要做成动态的,还是到邮件里设比较灵活些吧.

作者: ruchen 时间: 2006-6-9 11:19
测试后没有反应

作者: 钉子 时间: 2006-10-17 16:29
关于这个问题，我们的新版主leon19821015还有这个文章，一起转过来大家看看：

2个SMTP虚拟服务器环境下添加免责声明

环境:1台Exchange有2个SMTP VS.SMTP VS-1:监听25端口,外连26端口,SMTP VS-2:监听26端口,外连25端口.(由于分公司都设置了监听26端口，所以不存在通信问题，在此也不讨论SMTP通信)
需求:发往各分公司(香港,深圳)时没有免责声明,其余所有对外邮件要有免责声明.
操作:1.将以下代码粘贴到一个新的文件中并将其另存为 EventSinkScript.vbs
<SCRIPT LANGUAGE="VBScript">

Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)

TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript."

HTMLDisclaimer = "DISCLAIMER: 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>

   2.安装Exchange SDK，在命令行导航到C:\Program files\Exchange SDK\SDK\Support\CDO\Scripts
   3.输入命令:cscript smtpreg.vbs /add 2(说明:2为SMTP VS-2) onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink “mail from=*@your-domain-here.com”
               cscript smtpreg.vbs /setprop 2(同上) onarrival SMTPScriptingHost Sink ScriptName “C:\ EventSinkScript.vbs”(说明:假设放在C盘)
   如要取消:cscript smtpreg.vbs /remove 1(同上) OnArrival SMTPScriptingHost

总结:至此,完成了所要达到的需求,简单讲来就是把各分公司之间的邮件和其他对外邮件分2个SMTP VS,这样只需要对SMTP VS-2(对外邮件)注册此事件来触发添加免责声明,而不会影响各分公司之间的邮件传递.

注意:由于MAPI客户发送的邮件格式不是真正的SMTP格式,所以不适用MAPI客户.如果MAPI客户需要使用免责声明,可以建立一个SMTP网关,在SMTP网关注册添加免责声明事件,所有经过此SMTP网关的外发邮件都将触发此事件,这样将能使MAPI客户也能实现此功能.

作者: feidong 时间: 2006-10-26 13:20
标题: 无任何反应
我也按你们介绍的方法做了，但测试后根本就没有任何反应。
请问在注册这个事件之前还有没有需要特别注意的地方？

作者: hellenchen 时间: 2006-12-18 13:50
我也測試了一下,可結果也是不行,不知道在哪里出問題了,幫幫我吧,謝謝!

作者: dinnes 时间: 2008-3-10 16:20
这个只能针对SMTP，如果客户端采用Outlook收发邮件将不能添加。

作者: xky009 时间: 2008-7-17 23:48
学习一下, 去试试, 谢谢!

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://5dmail.net/bbs/)