Как получить ссылка на почтовый элемент в текущем открытом окне Outlook с использованием VBA?

У меня есть макрос, который очень хорошо работает, чтобы помещать его в папки / применять флаги / устанавливать категории, но он работает только с текущим элементом, выбранным в проводнике.

Когда я получаю уведомление по электронной почте на рабочем столе и нажимаю на него, чтобы открыть сообщение электронной почты, я хотел бы иметь возможность запустить тот же макрос для этого открытого элемента, но я не могу найти никакой документации о том, как получить доступ этот объект аналогичен тому, как я получаю доступ к выбранному элементу в списке проводника.

Моя текущая логика выбора выглядит так:

Dim Item As Object
Dim SelectedItems As Selection

Set SelectedItems = Outlook.ActiveExplorer.Selection
For Each Item In SelectedItems
    With Item
        'do stuff
    End With
Next Item