Событие Explorer.BeforeFolderSwitch (Outlook)

Статья
04/07/2023

Происходит перед тем, как обозреватель перейдет в новую папку в результате действия пользователя или с помощью программного кода.

Синтаксис

выражение. BeforeFolderSwitch( _NewFolder_ , _Cancel_ )

Выражение Переменная, представляющая объект Explorer .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
NewFolder	Обязательный	Object	Объект Folder , на который переключается обозреватель.
Отмена	Обязательный	Boolean	Значение false при возникновении события. Если процедура события задает этому аргументу значение True, навигация отменяется, а текущая папка не изменяется.

Замечания

Это событие недоступно в Microsoft Visual Basic Scripting Edition (VBScript).

Если папка, в которую выполняется переключение, находится в пространстве имен, которое не поддерживает автоматизацию (например, файловая система), NewFolder имеет значение Nothing.

Пример

Этот пример предотвращает переключение пользователя в папку с именем Off Limits. Пример кода должен быть помещен в модуль класса, например ThisOutlookSession, и подпрограмма должна быть вызвана Initialize_handler , прежде чем процедура события может быть вызвана Microsoft Outlook. Чтобы запустить этот пример без ошибок, убедитесь, что в папке, отображаемой в активном обозревателе, существует папка с именем Off Limits.

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

См. также

Объект Explorer

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через