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

Objeto Application

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.