Похоже, что вы подписываетесь на исходный почтовый элемент, только когда открыто окно инспектора. Вам нужно отслеживать выбранный элемент в окне проводника, чтобы иметь возможность перехватить событие PropertyChange
для таких случаев.
Событие Explorer.SelectionChange наступает, когда пользователь выбирает другой или дополнительный элемент Microsoft Outlook программным способом или путем взаимодействия с пользовательским интерфейсом. Это событие также происходит, когда пользователь (программно или через пользовательский интерфейс) щелкает или переключается на другую папку, содержащую элементы, поскольку 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