将对话从共享邮箱移动到共享邮箱内的文件夹中

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”出现问题，因为我没有移动“对话”对象。\\

我希望微软能尽快实现这个功能。