Propiedad Application.Explorers (Outlook)
Devuelve un objeto de colección Explorers que contiene los objetos Explorer que representan todos los exploradores abiertos. Solo lectura.
Sintaxis
expresión. Explorers
expresión Variable que representa un objeto Application.
Ejemplo:
En el ejemplo siguiente de Microsoft Visual Basic para Aplicaciones (VBA) se muestra el número de ventanas abiertas del explorador.
Private Sub CountExplorers()
MsgBox "There are " & _
Application.Explorers.Count & " Explorers."
End Sub
El siguiente ejemplo de VBA utiliza la propiedad Count y el método Item de la colección Selection devuelta por la propiedad Selection para mostrar los remitentes de todos los elementos de correo seleccionados en el explorador que muestra la Bandeja de entrada. Para ejecutar este ejemplo, debe tener al menos un elemento de correo seleccionado en el explorador que muestra la Bandeja de entrada. Es posible que reciba un error si selecciona elementos que no sean de un elemento de correo como solicitud de tarea ya no existe la propiedad SenderName para el 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
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.