通过

Explorer.ViewSwitch 事件 (Outlook)

  • 项目

当浏览器中的视图更改时发生，可以是用户操作或程序代码的结果。

语法

expression。 ViewSwitch

表达 一个代表 Explorer 对象的变量。

备注

该事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

示例

本 Visual Basic for Applications (VBA) 示例在用户切换到"邮件自动预览"视图时隐藏浏览窗格（如果该窗格是可见的）。 示例代码必须放在类模块中，并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。

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

另请参阅

资源管理器对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。