Application / Свойство

Application.ActiveExplorer

Активный проводник — Окно списка писем, в котором сейчас выделение.

ActiveExplorer As Explorer

Когда использовать

Обработка выделенных писем: ActiveExplorer.Selection. Если открыт только инспектор, Explorer может быть Nothing.

Outlook 2010–365, Windows

Dim exp As Outlook.Explorer
Set exp = Application.ActiveExplorer
If exp Is Nothing Then Exit Sub
Debug.Print exp.Selection.Count

Selection.Count = 0, если курсор в папке, но письмо не выделено.

Сохранить выделенные письма Outlook
Нужно прогнать несколько писем из списка папки и не сохранить собрание как письмо.