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

Свойство Application.Explorers (Outlook)

  • Статья

Возвращает объект коллекции Explorers , содержащий объекты Explorer , представляющие все открытые проводники. Только для чтения.

Синтаксис

выражение. Explorers

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

Пример

В следующем примере Microsoft Visual Basic для приложений (VBA) отображается количество открытых окон проводника.

Private Sub CountExplorers() 
 
 MsgBox "There are " & _ 
 
 Application.Explorers.Count & " Explorers." 
 
End Sub

В следующем примере 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.Explorers.Item(1) 
 
 If myOlExp = "Inbox" Then 
 
 Set myOlSel = myOlExp.Selection 
 
 For x = 1 To myOlSel.Count 
 
 MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & ";" 
 
 Next x 
 
 MsgBox MsgTxt 
 
End If 
 
End Sub

См. также

Объект Application

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

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