Outlook VBA教程:ViewSwitch事件

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

Sub object_ViewSwitch()

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

VBA示例

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


Dim myolapp As New Outlook.Application
Dim WithEvents myOlExpl As Outlook.Explorer
Sub Initialize_handler()
    Set myOlExpl = myolapp.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

上页:Outlook VBA教程:ViewRemove事件 下页:Outlook VBA教程:Write事件

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

Outlook VBA教程:Write事件 Outlook VBA教程:隐藏的语言元素
Outlook VBA教程:新增事件(按字母顺序排列) Outlook VBA教程:新增事件(按对象排列)
Outlook VBA教程:新增方法(按字母顺序排列) Outlook VBA教程:新增方法(按对象排列)
Outlook VBA教程:新增对象 Outlook VBA教程:新增属性(按字母顺序排列)
Outlook VBA教程:新增属性(按对象排列) Outlook VBA教程:Outlook 项目对象
Outlook VBA教程:OLE 程序标识符 Outlook VBA教程:Activate方法
Outlook VBA教程:ActiveExplorer方法 Outlook VBA教程:ActiveInspector方法
Outlook VBA教程:ActiveWindow方法 Outlook VBA教程:Add方法
Outlook VBA教程:AddMember方法 Outlook VBA教程:AddMembers方法
Outlook VBA教程:AddStore方法 Outlook VBA教程:AddToFavorites方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号