Método Application.ActiveExplorer (Outlook)
Devuelve el objeto Explorer superior del escritorio.
Sintaxis
expresión. ActiveExplorer
expresión Variable que representa un objeto Application.
Valor devuelto
Objeto Explorer que representa el explorador superior del escritorio. Devuelve Nothing si no hay ningún explorador está activo.
Comentarios
Use este método para devolver el objeto Explorer que el usuario más probable es que está viendo. Este método también es útil para determinar cuándo no hay ningún explorador activo, por lo que se puede abrir una nueva.
Ejemplo:
El siguiente ejemplo de Microsoft Visual Basic para aplicaciones (VBA) se 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 la ventana activa del explorador. Para ejecutar este ejemplo, debe tener al menos un elemento de correo seleccionado en la ventana activa del explorador.
Nota:
[!NOTA] 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.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & ";"
Next x
MsgBox MsgTxt
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.