全部显示

BeforeGroupAdd 事件

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

object  该表达式的值为 OutlookBarGroups 集合对象。

Cancel  可选。当事件发生时，为 False。如果事件过程将该参数置为 True，新组将不添加到“Outlook 面板”中。

示例

本示例防止用户向“Outlook 面板”中添加新组。示例代码必须放在类模块中，并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。

Dim myOlApp As New Outlook.Application
Dim WithEvents myOlGroups As Outlook.OutlookBarGroups
Dim myOlBar As Outlook.OutlookBarPane

Sub Initialize_handler()
    Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
    Set myOlGroups = myOlBar.Contents.Groups
End Sub

Private Sub myOlGroups_BeforeGroupAdd(Cancel As Boolean)
    Cancel = True
End Sub