答案 0 :(得分:0)
似乎您仅在打开检查器窗口时才订阅源邮件项目。您需要在“资源管理器”窗口中跟踪选定的项目,以便能够捕获PropertyChange
事件。
当用户以编程方式或通过与用户界面进行交互选择其他或其他Microsoft Outlook项目时,将触发Explorer.SelectionChange事件。当用户(通过编程方式或通过用户界面)单击或切换到包含项目的其他文件夹时,也会发生此事件,因为Outlook会自动选择该文件夹中的第一个项目。
Public WithEvents myOlExp As Outlook.Explorer
Public Sub Initialize_handler()
Set myOlExp = Application.ActiveExplorer
End Sub
Private Sub myOlExp_SelectionChange()
MsgBox myOlExp.Selection.Count & " items selected."
End Sub