全部显示

BeforeGroupSwitch 事件

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

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

ToGroup  必选。正在打开的 OutlookBarGroup。

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

示例

本示例防止用户在“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