“阅读” Outlook 2007 VSTO VB.NET 中的 Mailitem 事件

Question

好吧，这有点棘手...

我正在使用 VS 2010 和 VSTO 以及 VB.NET 为 MS Outlook 2007 编写一个加载项。我的目标是提示用户打印从某些电子邮件地址收到的电子邮件。 （这可以通过一个简单的 MsgBox 来完成。）

具体来说，我希望用户在阅读完电子邮件后得到提示。我的想法是，它的工作方式应该类似于 Outlook 中的“已读回执”功能。 （你知道，那些烦人的事情...“发件人已要求您提供收据，表明您已阅读这封电子邮件等等”）

因此，用户阅读电子邮件，然后当他们关闭电子邮件时检查器（或者如果位于资源管理器视图中，则将焦点更改为其他项目）会弹出消息框。我注意到这与电子邮件变为“已读”的时间相匹配。

我已经在 Google、MSDN 和教程网站上追寻这个问题几天了，这是我发现的：

第 1 轮： Mailitem 对象具有 UnRead 属性，并且还具有 PropertyChange 事件。我可以对收件箱中的每个邮件项目使用 AddHandler for PropertyChange，将它们绑定到单个子例程中，该子例程检查 PropertyChange 事件的参数以确保它是未读的。似乎相当可行，只是 PropertyChange 不传递调用对象的身份，因此我无法知道收件箱中的哪些电子邮件刚刚丢失了“未读”状态。

事实上，似乎没有一个 Mailitem 事件传递它们的身份，可能是因为有人（我猜是 MS）假设您首先有一个指向 Mailitem 对象的直接指针。所以这条路似乎行不通。

第二轮： 我可以将收件箱中的所有邮件项目抓取到一个集合中，然后将它们限制为仅未读邮件项目。

Dim inbox As Outlook.MAPIFolder = Nothing
Dim WithEvents unreadItems As Outlook.Items

inbox = Me.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
unreadItems = inbox.Items.Restrict("[Unread]=true")

由于 unreadItems 因事件而变暗，我可以编写一个 Sub 来处理 unreadItems.ItemRemove，这会很好地工作。但 ItemRemove 事件没有对象参数！哎哟！

第三轮： 假设我执行相反的操作：获取收件箱内容并限制为 [Unread]=false，然后使用 .ItemAdd 事件。这在一定程度上是有效的，只是理论上，每当用户从任何文件夹将“[Unread]=false”项目转储到收件箱中时，而不仅仅是收件箱中从“未读”组更改为“已读”组时，它都会调用。所以，除非我在这里误解了什么，否则也不是一个选择。

第四轮： 现在，我还想到了简单地调暗收件箱项目集合 WithEvents 并关闭 .ItemChange 事件，但此事件并没有真正指定对象发生了什么变化，所以没有骰子。

---

最后，我对此感到非常困惑。我已经快要放弃我的目标了。一个蹩脚的替代方案是当用户收到来自指定地址之一的电子邮件时提醒用户（因为我相信 Application.NewMail 事件不会给我带来任何麻烦）。但是，然后，我将不得不简单地提醒用户 - 我不会提示他们打印他们甚至还没有阅读的电子邮件。

这种选择是不可取的，我想我会提出我的问题以供检查和建议。

-马特

P.S.我以前使用 Objective-C 制作 iPad 应用程序，我自己构建了大部分对象层次结构……必须处理具有此类限制的 COM 对象，这很奇怪。

Answer 1

我不太确定您希望 UI 的行为方式如何，因为不太清楚用户何时阅读完电子邮件。一种看待它的方法是，当他们查看完邮件时，他们就完成了，这意味着检查器窗口已经显示了邮件，并且用户正在切换到另一封邮件。要了解这一点，您可能最好从检查员那里观看事件，而不是邮件。
另一种看待它的方式是，只要邮件被标记为已读，就会被阅读。请注意，用户实际上可能会关闭将项目标记为自动已读的选项！这可以在“工具”->“选项”->“其他”->“阅读”窗格中完成，如下所示：

此外，用户可以选择项目并将其标记为手动阅读，因此您需要考虑在这种情况下您想要做什么。

如果您想观察 MailItem 的“read”属性的变化，那么您在第 1 轮中就非常接近了。您需要添加的是，您不应该将所有处理程序绑定到单个对象中的单个子例程实例。相反，您可以创建自己的类，如下所示（C# 代码）：

class ItemWatcher
{
    // The Outlook mailitem to watch for
    private Microsoft.Office.Interop.Outlook.MailItem itemBeingWatched = null;

    public ItemWatcher(Microsoft.Office.Interop.Outlook.MailItem item, Form1 parentForm)
    {
        itemBeingWatched = item;
        itemBeingWatched.PropertyChange += new Microsoft.Office.Interop.Outlook.ItemEvents_10_PropertyChangeEventHandler(itemBeingWatched_PropertyChange);
    }

    void itemBeingWatched_PropertyChange(string Name)
    {
        // Respond to property <Name> in the object itemBeingWatched having changed
    }
}

然后您需要创建 ItemWatcher 类的集合并将它们设置为监视您的电子邮件。
请注意，当新邮件到达或旧邮件被删除/移动时，您还需要监视需要从监视项目集合中添加/删除的项目。