Événement Explorer.BeforeFolderSwitch (Outlook)
Survient avant que l'explorateur accède à un nouveau dossier, à la suite d'une action de l'utilisateur ou par le biais d'un code de programme.
Syntaxe
expression. BeforeFolderSwitch( _NewFolder_ , _Cancel_ )
Expression Variable qui représente un objet Explorer .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| NewFolder | Obligatoire | Object | Objet Folder vers lequel l’explorateur bascule. |
| Cancel | Obligatoire | Booléen | False lorsque l'événement se produit. Si la procédure événementielle affecte à cet argument la valeur True, la navigation est annulée et le dossier actif ne change pas. |
Remarques
Cet événement n'est pas disponible dans Microsoft Visual Basic Scripting Edition (VBScript).
Si le dossier basculé vers se trouve dans un espace de noms qui ne prend pas en charge l’automatisation (par exemple, le système de fichiers), NewFolder a la valeur Nothing.
Exemple
Cet exemple montre comment empêcher un utilisateur de naviguer vers un dossier nommé « Off Limits ». L’exemple de code doit être placé dans un module de classe tel que ThisOutlookSession, et la Initialize_handler routine doit être appelée avant que la procédure événementielle puisse être appelée par Microsoft Outlook. Pour exécuter cet exemple sans erreur, vérifiez qu’il existe un dossier « Off Limits » dans le dossier affiché dans l’explorateur en cours.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.