將對話從共享郵箱移動到共享郵箱內的文件夾中

Question

我們有一個帶有子文件夾 (TestIn) 的共享郵箱 (test@)。

我想在共享郵箱的收件箱中選擇一封電子郵件並將其移動到“TestIn”文件夾中。

此郵件應作為會話移動，不僅是單個郵件，此 Header（會話）下的每封郵件都應放入此文件夾。

我們正在 Outlook 中使用 Office365 和 Microsoft Exchange 帳戶。

我開始將選定的郵件（或對話）從共享郵箱移動到個人郵箱的子文件夾中，而不是共享郵箱。

這是代碼：

Sub SetAlwaysMoveToFolderMAPI()
Dim sharedemail As Outlook.Recipient
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myMail As Outlook.MailItem
Dim myStore As Outlook.Store
Dim oConv As Outlook.Conversation

Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set sharedemail = myNameSpace.CreateRecipient("Postfach Test")
Set myInbox = myNameSpace.GetSharedDefaultFolder(sharedemail, olFolderInbox)
Set myDestFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("TestIn")
Set myMail = ActiveExplorer.Selection(1)
Set myStore = myDestFolder.Store

If myStore.IsConversationEnabled Then
 Set myConv = myMail.GetConversation
 If Not (myConv Is Nothing) Then
  myConv.SetAlwaysMoveToFolder myDestFolder, myDestFolder.Store
 End If
End If
End Sub

如果我更換

Set myDestFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("TestIn")

和

Set myDestFolder = myNameSpace.GetSharedDefaultFolder(sharedemail, olFolderInbox).Folders("TestIn")

它不會移動任何東西，我也沒有收到任何錯誤消息。

如果我調試我看到，腳本從If myStore.IsConversationEnabled Then直接跳到最后。

對我來說，這意味着If myStore.IsConversationEnabled Then是問題所在，但我找不到任何關於它的信息。

Answer 1

這個時候是不可能的！

問題出在共享郵箱的“存儲”中。 在那里，“ConversationView”不可用，這會導致“SetAlwaysMoveToFolder”出現問題，因為我沒有移動“對話”對象。\\

我希望微軟能盡快實現這個功能。