Question

我有一个简单的问题。如何在事件过程中检查项目的属性？以下是我尝试做的事情的片段：

Private Sub application_ItemLoad(ByVal Item As Object)
Dim myolitem As Object
Set myolitem = Item
    If myolitem.Class = olMail Then
        If myolitem.UnRead Then
            UserForm2.Show vbModal
        End If
    End If
End Sub

提前感谢您的帮助。

Answer 1

你的代码看起来很好，我没有看到任何奇怪的东西。

希望您会发现Getting Started with VBA in Outlook 2010文章有用。

Answer 2

某些事件（例如AfterWrite，ItemLoad）仅允许访问有限数量的属性。在您的特定情况下，这些是Class和MessageClass - 请参阅ApplicationEvents_11_Event.ItemLoad event。我不知道MAPIOBJECT中是否可以访问ItemLoad（我知道它可以在AfterWrite事件中访问），您可以（理论上）使用Extended访问属性MAPI（C ++或Delphi）或Redemption。

在事件过程中使用item属性

2 个答案: