通过

Explorer.BeforeViewSwitch 事件 (Outlook)

  • 项目

由于用户操作或程序代码而在浏览器切换到新视图前发生。

语法

expression。 BeforeViewSwitch( _NewView_ , _Cancel_ )

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

参数

名称 必需/可选 数据类型 说明
NewView 必需 Variant 浏览器要切换到的视图的名称。
Cancel 必需 Boolean 假 的事件发生时。 如果事件过程将此参数设置为 True ，则取消切换，并且不更改当前视图。

备注

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

示例

本 Microsoft Visual Basic for Applications (VBA) 示例确认用户是否要切换视图，并在用户回答"否"时取消切换。 示例代码必须放在类模块中，并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。

Public WithEvents myOlExp As Outlook.Explorer 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlExp = Application.ActiveExplorer 
 
End Sub 
 
 
 
Private Sub myOlExp_BeforeViewSwitch(ByVal NewView As Variant, Cancel As Boolean) 
 
 Dim Prompt As String 
 
 
 
 Prompt = "Are you sure you want to switch to the " & NewView & " view?" 
 
 If MsgBox(Prompt, vbYesNo + vbQuestion) = vbNo Then Cancel = True 
 
End Sub

另请参阅

资源管理器对象

支持和反馈

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