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

Статья
04/07/2023

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

Синтаксис

выражение. ViewSwitch

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

Замечания

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

Пример

В этом примере Visual Basic для приложений (VBA) панель предварительного просмотра скрыта, если она отображается при переключлении пользователя в режим "Сообщения" с представлением автопросмотра. Пример кода должен быть помещен в модуль класса, а подпрограмма должна быть вызвана Initialize_handler , прежде чем процедура события может быть вызвана Microsoft Outlook.

Dim WithEvents myOlExpl As Outlook.Explorer 
 
 
 
Sub Initialize_handler() 
 
 Set myOlExpl = Application.ActiveExplorer 
 
End Sub 
 
 
 
Private Sub myOlExpl_ViewSwitch() 
 
 If myOlExpl.CurrentView = "Messages with AutoPreview" And myOlExpl.IsPaneVisible(olPreview) = True Then 
 
 myOlExpl.ShowPane olPreview, False 
 
 End If 
 
End Sub

См. также

Объект Explorer

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

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

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