BeforeGroupAdd Event

Occurs before a new group is added to the Shortcuts pane, either as a result of user action or through program code. This event is not available in Microsoft Visual Basic Scripting Edition (VBScript).

Sub object_BeforeGroupAdd(Cancel As Boolean)

object    An expression that evaluates to an OutlookBarGroups collection object.

Cancel     Optional. False when the event occurs. If the event procedure sets this argument to True, the group is not added to the Shortcuts pane.

Example

This Visual Basic for Applications (VBA) example prevents the user from adding a group to the Shortcuts pane. The sample code must be placed in a class module such as ThisOutlookSession, and the Initialize_handler routine must be called before the event procedure can be called by Outlook.

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