确定事件何时触发

Question

我正在关注 MSDN 上显示的示例，但我遗漏了一部分，因为我无法触发“事件”。

目标是在每次用户打开/预览/标记为已读邮件项时在邮件末尾附加时间戳和用户名。

我已阅读 MailItem.Open (https://msdn.microsoft.com/en-us/library/office/ff865989.aspx) 和 MailItem.Read (https://msdn.microsoft.com/EN-US/library/office/ff869872.aspx)。我已禁用宏安全性（启用所有宏）。

我在“ThisOutlookSession”中的代码。每次更改时我都会重新启动 Outlook：

Public WithEvents SelectedItem As Outlook.MailItem

Sub Initialize_handler()
 Set SelectedItem = Application.ActiveExplorer.CurrentFolder.Items(1)
 SelectedItem.Display
End Sub

Sub SelectedItem_Read()
  MsgBox "Trigger by MailItem.Read"
End Sub

Sub SelectedItem_Open()
  MsgBox "Trigger by MailItem.Open"
End Sub

在任何打开/预览 3 秒/标记为用户已读的情况下，我都无法显示 msgbox。

当事件起作用时，我计划调用以下子：

Sub MessageWasOpenned()
    Dim myItem As MailItem
    Set SelectedItems = ActiveExplorer.Selection
    For Each myItem In SelectedItems
    myItem.Body = myItem.Body & vbCrLf & "This message was opened by: " & (Environ$("Username")) & " on: " & Now
    myItem.Save
    Next
End Sub

Answer 1

您在文件夹中的第一个项目上设置事件处理程序，无论它碰巧是什么。它很可能是文件夹中最旧的消息，但除非您明确对 Items 集合进行排序，否则无法确定顺序。该顺序与您在 Outlook 资源管理器中看到的内容无关。

如果您使用 Selection 集合，则会触发 Open 事件。