MailItem.MarkAsTask 后 Outlook 2010 强制更新 UI

Question

我有一个脚本，它会在我收到特定主题的电子邮件时运行。 在脚本的末尾，我想将 MailItem 标记为已完成并让它 在电子邮件旁边显示复选标记。

我调用了 MarkAsTask olMarkComplete 它做了它应该做的但是 UI 没有更新并且复选标记没有出现，除非我 select/deselect通过 UI

的电子邮件

编辑：当我循环浏览文件夹中的所有电子邮件时，它只适用于最后一组。我是不是漏掉了什么..?

到目前为止我的代码：

Dim reviewFolder As Folder
Dim item As Outlook.MailItem

Set myFolder = ThisOutlookSession.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("My Folder")

For Each item In myFolder.Items
    {other code}
    item.MarkAsTask olMarkComplete
Next

Answer 1

您需要致电MailItem.Save。