Outlook VBA教程:BeforeGroupSwitch事件

在Outlook 面板中打开新组前发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。

Sub object_BeforeGroupSwitch(ByVal ToGroup As OutlookBarGroup, Cancel as Boolean)

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

ToGroup  必选。正在打开的OutlookBarGroup

Cancel  可选。当事件发生时,为 False。如果事件过程将该参数设置为 True,将取消更改,当前组依然处于打开状态。

VBA示例

本示例防止用户在“Outlook 面板”中打开名为“其他快捷方式”的组。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


Dim myOlApp As New Outlook.Application
Public WithEvents myOlPane As Outlook.OutlookBarPane
Public Sub Initialize_handler()
    Set myOlPane = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
End Sub
Private Sub myOlPane_BeforeGroupSwitch(ByVal ToGroup As Outlook.OutlookBarGroup, Cancel As Boolean)
    If ToGroup.Name = "Other Shortcuts" Then Cancel = True
End Sub

上页:Outlook VBA教程:BeforeGroupRemove事件 下页:Outlook VBA教程:BeforeItemCopy事件

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

Outlook VBA教程:BeforeItemCopy事件 Outlook VBA教程:BeforeItemCut事件
Outlook VBA教程:BeforeItemPaste事件 Outlook VBA教程:BeforeMaximize事件
Outlook VBA教程:BeforeMinimize事件 Outlook VBA教程:BeforeMove事件
Outlook VBA教程:BeforeNavigate事件 Outlook VBA教程:BeforeReminderShow事件
Outlook VBA教程:BeforeShortcutAdd事件 Outlook VBA教程:BeforeShortcutRemove事件
Outlook VBA教程:BeforeSize事件 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事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号