Office outlook如何转移conversation folder的邮件

求助Office outlook怎么转移conversation folder的邮件
大家应该知道office communicator 可以存储chat到outlook的conversation folder，但保存的却是server上的conversation folder，我想让他自动转移到本地的conversation folder，就像邮件一样配一个本地的pst，然后选择默认收件箱本地的，则outlook会从server上下载邮件到本地。我想conversation folder能不能也这么弄？或者设置什么规则让他自动转移？
------最佳解决方案--------------------------------------------------------

Dim sourceFolder As MAPIFolder
Dim destFolder As MAPIFolder

Private Sub Application_Startup()
Initialize_handler
End Sub

Public Sub Initialize_handler()
    On Error Resume Next
    Dim olApp As Outlook.Application
    Dim nmsName As NameSpace
    Dim fldFolder As MAPIFolder
    Set olApp = Outlook.Application
    Set nmsName = olApp.GetNamespace("MAPI")
    
    For Each fldFolder In nmsName.Folders
       For Each subFolder In fldFolder.Folders
        If (subFolder.Name = "Conversation History" And fldFolder.Name = "***") Then
           Set sourceFolder = subFolder
        End If
        
        If (subFolder.Name = "Conversation History" And fldFolder.Name = "###") Then
           Set destFolder = subFolder
        End If

       Next
    Next
    Set myOlItems = sourceFolder.items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
    Dim myOlMItem As Outlook.mailItem
    Set myOlMItem = Item
    myOlMItem.Move destFolder
End Sub

------其他解决方案--------------------------------------------------------
没人？。。。。。
------其他解决方案--------------------------------------------------------
规则很麻烦。

可以用vba，判断Message Class。
------其他解决方案--------------------------------------------------------

引用:

规则很麻烦。

可以用vba，判断Message Class。

谢谢版主，那具体怎么做呢？有guide什么的吗？我试试。
------其他解决方案--------------------------------------------------------
http://club.excelhome.net/thread-549121-1-1

先看看这个，如果还有问题再上来问。
------其他解决方案--------------------------------------------------------
感谢！

是否只能以添加按钮方式操作？可以自动化进行吗？
------其他解决方案--------------------------------------------------------
就是自动化进行的啊。


------其他解决方案--------------------------------------------------------
抱歉，试了下，这种类型的不触发newmail事件。

我再研究研究。
------其他解决方案--------------------------------------------------------
好，谢谢啊，想不到这么麻烦啊。。。。
------其他解决方案--------------------------------------------------------
把上面代码中的“***”改成server目录的名字。

“###”改成本地目录的名字。
------其他解决方案--------------------------------------------------------