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