Método Application.ActiveExplorer (Outlook)
Retorna o objeto Explorer superior na área de trabalho.
Sintaxe
expression. ActiveExplorer
expressão Uma variável que representa um Aplicativo objeto.
Valor de retorno
Um Explorer que representa o explorer superior na área de trabalho. Retorna Nothing se nenhum explorer estiver ativo.
Comentários
Use este método para retornar o objeto Explorer que o usuário provavelmente está exibindo. Este método também é útil para determinar quando não houver nenhuma explorer ativo, para um novo possa ser aberto.
Exemplo
Os seguintes Microsoft exemplo Visual Basic for Applications (VBA) 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 na janela do explorer ativo. Para executar esse exemplo, você precisará ter pelo menos um item de email selecionado na janela do Explorer ativa.
Observação
[!OBSERVAçãO] 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.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & ";"
Next x
MsgBox MsgTxt
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.