在预览窗格中打开电子邮件时会触发什么事件？

Question

我使用这样的代码从电子邮件中捕获打开的事件，但只有当您实际上双击电子邮件时才会触发此事件。在预览窗格中打开电子邮件时是否也有办法运行代码？

Public WithEvents myItem As Outlook.MailItem 
Public EventsDisable As Boolean 

Private Sub Application_ItemLoad(ByVal Item As Object) 
    If EventsDisable = True Then Exit Sub 
    If Item.Class = olMail Then 
     Set myItem = Item 
    End If 
End Sub 


Private Sub myItem_Open(Cancel As Boolean) 
    EventsDisable = True 
    'do something 
    EventsDisable = False 
End Sub 

谢谢。

Answer 1

这将是Explorer.SelectionChange事件：https://msdn.microsoft.com/en-us/vba/outlook-vba/articles/explorer-selectionchange-event-outlook。