Outlook VBA教程:BeforeViewSwitch事件

当浏览器切换到新视图时发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。

Sub object_BeforeViewSwitch(ByVal NewView As String, Cancel As Boolean)

object  该表达式的值为Explorer对象。

NewView  必选。浏览器要切换到的视图名称。

Cancel  可选。当事件发生时为 False。如果事件过程将该参数设置为 True,则取消切换,并且不更改当前视图。

VBA示例

本示例确认用户是否要切换视图,并在用户回答“否”时取消切换。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


Dim myOlApp As Outlook.Application
Public WithEvents myOlExp As Outlook.Explorer
Public Sub Initialize_handler()
    Set myOlExp = myOlApp.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

上页:Outlook VBA教程:BeforeSize事件 下页:Outlook VBA教程:Close事件

Outlook VBA教程:BeforeViewSwitch事件:相关链接

Outlook VBA教程:Close事件 Outlook VBA教程:CustomAction事件
Outlook VBA教程:CustomPropertyChange事件 Outlook VBA教程:Deactivate事件
Outlook VBA教程:FolderAdd事件 Outlook VBA教程:FolderChange事件
Outlook VBA教程:FolderRemove事件 Outlook VBA教程:FolderSwitch事件
Outlook VBA教程:Forward事件 Outlook VBA教程:GroupAdd事件
Outlook VBA教程:ItemAdd事件 Outlook VBA教程:ItemChange事件
Outlook VBA教程:ItemRemove事件 Outlook VBA教程:ItemSend事件
Outlook VBA教程:MapiLogonComplete事件 Outlook VBA教程:NewExplorer事件
Outlook VBA教程:NewInspector事件 Outlook VBA教程:NewMail事件
Outlook VBA教程:OnError事件 Outlook VBA教程:Open事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号