Evento Explorer.BeforeFolderSwitch (Outlook)
Se produce antes de que el explorador examine una nueva carpeta, como resultado de una acción del usuario o mediante código de programación.
Sintaxis
expresión. BeforeFolderSwitch( _NewFolder_ , _Cancel_ )
Expresión Variable que representa un objeto Explorer .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| NewFolder | Obligatorio | Object | Cambia el objeto de carpeta del explorador. |
| Cancel | Obligatorio | Boolean | False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, se cancela la exploración y no se cambia la carpeta actual. |
Comentarios
Este evento no está disponible en Microsoft Visual Basic Scripting Edition (VBScript).
Si la carpeta a la que se cambia está en un espacio de nombres que no admite la automatización (por ejemplo, el sistema de archivos), NewFolder es Nothing.
Ejemplo:
Este ejemplo evita que un usuario cambie a una carpeta denominada "Off Limits". El código de ejemplo debe colocarse en un módulo de clase como ThisOutlookSession, y se debe llamar a la Initialize_handler rutina antes de que Microsoft Outlook pueda llamar al procedimiento de evento. Para ejecutar este ejemplo sin errores, asegúrese de que existe una carpeta denominada 'Off Limits' en la carpeta que muestra el explorador activo.
Public WithEvents myOlExp As Outlook.Explorer
Public Sub Initialize_handler()
Set myOlExp = Application.ActiveExplorer
End Sub
Private Sub myOlExp_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)
If NewFolder.Name = "Off Limits" Then
MsgBox "You don't have permission to access this folder."
Cancel = True
End If
End Sub
Consulte 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.