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

标题: 关于PUBLIC FOLDER邮件规则 [打印本页]

作者: shijiang1130 时间: 2008-5-14 09:17
标题: 关于PUBLIC FOLDER邮件规则
我的一个客户端用OUTLOOK作了一些邮件规则。都是关于PUBLIC FOLDER的，当接到一个邮件时就转发到PUBLIC FOLDER。现在要离开一段时间，但是这些规则又要继续运行。有什么好的解决办法没？我看了一下，EXCHANGE编程，是不是仅这个办法才能解决啊。

作者: jackey-ho 时间: 2008-5-14 09:37
请原谅我抢沙发.
不过,说真的不是很明白你要做什么,撤消RULE吗?

[ 本帖最后由 jackey-ho 于 2008-5-14 09:39 编辑 ]

作者: shijiang1130 时间: 2008-5-14 09:43
不是撤消，是RULE要用。但是有什么别的办法能够起到一样的作用没？我看文档说，只要是关于公共文件夹的规则都是属于客户端的，不是服务端的，不打开OUTLOOK的话，这个规则就不会起作用。

作者: jackey-ho 时间: 2008-5-14 11:01
个人认为:
EX本身只是集中收发,然后分发给各用户,至于用户的各项设置,只能用户自己根据自己的需要,以及客户端所提供的功能在客户端进行设置.

作者: shijiang1130 时间: 2008-5-14 11:08
但确实只要你设置了规则，不是与公共文件夹有关的。就算是你不作登陆，也是起作用的

作者: jackey-ho 时间: 2008-5-14 11:35
OUTLOOK设置RULE,用OWA打开还是可以按OUTLOOK设定的规则使用,如果换其它客户端这个没试过.
OUTLOOK设置的是OUTLOOK本身,不能更改EX用户设置吧.

作者: 钉子 时间: 2008-5-15 23:26
没错OWA也支持建立规则。

作者: shijiang1130 时间: 2008-5-27 09:56
谢谢回复。最后还是通过EVENTSINK来解决的。不过没有办法实现中文
Sub IEventIsCacheable_IsCacheable()
'To implement the interface, and return S_OK implicitly
End Sub

Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
Dim SubjectToFind
      Dim SaveFolder
      Dim MsgStream
      Dim iFound
      SubjectToFind="words"
      SaveFolder="c:\"
      iFound=InStr(1,Msg.Subject,SubjectToFind,1)
      if iFound > 0 then
      set MSGStream= Msg.Getstream
SaveFile=SaveFolder & Msg.Senton & iFound & msg.subject & ".eml"
SaveFile=Replace(SaveFile, "/", "_")
SaveFile=Replace(SaveFile, " ", "_")
SaveFile=Replace(SaveFile, ":", "_",3)
MsgStream.SaveToFile savefile,2
MsgStream.Close
Set MsgStream = Nothing
      set objFSO = CreateObject("Scripting.FileSystemObject")
      objFSO.MoveFile "c:\*.eml" , "M:\"
      end if
End Sub
</SCRIPT>

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