Propriedade Application.Explorers (Outlook)
Retorna um objeto da coleção Explorers que contém os objetos Explorer que representam todos os explorers abertos. Somente leitura.
Sintaxe
expression. Explorers
expressão Uma variável que representa um Aplicativo objeto.
Exemplo
O seguinte exemplo do Microsoft Visual Basic for Applications (VBA) exibe o número de janelas do Explorer que estão abertas.
Private Sub CountExplorers()
MsgBox "There are " & _
Application.Explorers.Count & " Explorers."
End Sub
O exemplo VBA a seguir usa a propriedade Count e o método Item da coleção Selection retornado pela propriedade Selection para exibir os remetentes de todos os itens de email selecionados no explorer que exibe a caixa de entrada. Para executar esse exemplo, você precisará ter pelo menos um item de email selecionado no explorer exibindo a caixa de entrada. Você pode receber um erro se você selecionar itens que não seja um item de email, como a solicitação de tarefa, como a propriedade SenderName não existe para um objeto 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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.