从 Outlook Web/Office Online 更新任务时，Office 互操作无法从 Outlook 获取更新的 TaskItem答案

【问题标题】：Office interop is unable to get the updated TaskItem from outlook when task is updated from Outlook Web/Office Online从 Outlook Web/Office Online 更新任务时，Office 互操作无法从 Outlook 获取更新的 TaskItem
【发布时间】：2020-10-27 16:08:18
【问题描述】：

我正在开发一个 Outlook 插件，它从 Outlook 桌面检索 TaskItem 并打开它。这是我的代码。

private static Microsoft.Office.Interop.Outlook.TaskItem GetLatestTask(string entryId)
 {
    Microsoft.Office.Interop.Outlook.MAPIFolder taskFolder = Application.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderTasks);
    List<Microsoft.Office.Interop.Outlook.TaskItem> liTask = new List<Microsoft.Office.Interop.Outlook.TaskItem>();
    foreach (Microsoft.Office.Interop.Outlook.TaskItem taskItem in taskFolder.Items)
    {
        if (taskItem.EntryID == entryId)
            return taskItem;
    }
}

这通常可以正常工作。但是，如果我从 Outlook Web/Office 在线更新任务，然后尝试使用代码获取任务，我得到的任务不会更新并且仍然包含旧值。

例如，我有一个主题名为“Test”的任务，然后我在 Outlook Web 中将其更新为“Test Updated”，我仍然会得到一个主题名为“Test”的任务。

如果我在 Outlook 桌面查看任务列表，我可以看到任务列表中的任务主题已经更新。但是打开它仍然会显示旧项目。

重新启动 Outlook 后，插件会获取更新的项目。

谁能指出我正确的方向？谢谢。

【问题讨论】：

标签： outlook vsto outlook-addin office-interop

【解决方案1】：

首先，遍历文件夹中的所有项目并不是一个好主意：

foreach (Microsoft.Office.Interop.Outlook.TaskItem taskItem in taskFolder.Items)
    {
        if (taskItem.EntryID == entryId)
            return taskItem;
    }

相反，您可以考虑使用Items 类的Find/FindNext 或Restrict 方法。在以下带有代码示例的文章中阅读有关它们的更多信息：

另外依靠EntryID 属性来识别 Outlook 中的项目并不是最好的方法。当项目被移动到另一个商店时，条目 ID 会发生变化，例如，从您的收件箱移动到 Microsoft Exchange Server 公用文件夹，或从一个个人文件夹 (.pst) 文件移动到另一个 .pst 文件。解决方案不应依赖 EntryID 属性是唯一的，除非项目不会被移动。相反，您可以引入自己的自定义属性来识别项目。

如果您使用缓存数据很可能需要与服务器端同步数据。 SyncObjects 是一组 SyncObject 对象，代表用户的发送/接收组。使用SyncObjects 属性从NameSpace 对象返回SyncObjects 对象。

Set mySyncObjects = Application.GetNameSpace("MAPI").SyncObjects

SyncObject.Start 方法开始使用指定的发送\接收组同步用户的文件夹。

Public Sub Sync() 
 Dim nsp As Outlook.NameSpace 
 Dim sycs As Outlook.SyncObjects 
 Dim syc As Outlook.SyncObject 
 Dim i As Integer 
 Dim strPrompt As Integer 
 Set nsp = Application.GetNamespace("MAPI") 
 Set sycs = nsp.SyncObjects 
 For i = 1 To sycs.Count 
Set syc = sycs.Item(i) 
strPrompt = MsgBox( _ 
 "Do you wish to synchronize " & syc.Name &"?", vbYesNo) 
If strPrompt = vbYes Then 
 syc.Start 
End If 
 Next 
End Sub

希望在那之后，您的商品将使用新数据进行更新。

【讨论】：