Метод Application.ActiveExplorer (Outlook)

Статья
04/07/2023

Возвращает самый верхний объект Explorer на рабочем столе.

Синтаксис

выражение. ActiveExplorer

выражение: переменная, представляющая объект Application.

Возвращаемое значение

Обозреватель, представляющий самый верхний обозреватель на рабочем столе. Возвращает значение Nothing, если обозреватель не активен.

Замечания

Используйте этот метод, чтобы вернуть объект Explorer , который, скорее всего, просматривает пользователь. Этот метод также полезен для определения отсутствия активного обозревателя, поэтому можно открыть новый.

Пример

В следующем примере Microsoft Visual Basic для приложений (VBA) используются свойство Count и метод Item коллекции Selection, возвращаемой свойством Selection, для отображения отправителей всех элементов почты, выбранных в окне активного проводника. Чтобы запустить этот пример, в активном окне проводника должен быть выбран по крайней мере один почтовый элемент.

Примечание.

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

Sub GetSelectedItems() 
 
 Dim myOlExp As Outlook.Explorer 
 
 Dim myOlSel As Outlook.Selection 
 
 Dim MsgTxt As String 
 
 Dim x As Integer 
 
 
 
 MsgTxt = "You have selected items from: " 
 
 Set myOlExp = Application.ActiveExplorer 
 
 Set myOlSel = myOlExp.Selection 
 
 For x = 1 To myOlSel.Count 
 
 MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & ";" 
 
 Next x 
 
 MsgBox MsgTxt 
 
End Sub

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через