关于PUBLIC FOLDER邮件规则

shijiang1130

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

jackey-ho

请原谅我抢沙发.
不过,说真的不是很明白你要做什么,撤消RULE吗?

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

shijiang1130

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

jackey-ho

个人认为:
EX本身只是集中收发,然后分发给各用户,至于用户的各项设置,只能用户自己根据自己的需要,以及客户端所提供的功能在客户端进行设置.

shijiang1130

但确实只要你设置了规则，不是与公共文件夹有关的。就算是你不作登陆，也是起作用的

jackey-ho

OUTLOOK设置RULE,用OWA打开还是可以按OUTLOOK设定的规则使用,如果换其它客户端这个没试过.
OUTLOOK设置的是OUTLOOK本身,不能更改EX用户设置吧.

钉子

没错OWA也支持建立规则。

shijiang1130

谢谢回复。最后还是通过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>