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

Objeto de Aplicativo

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.