BeforeGroupAdd Event

  • Article

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).

Subobject**_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

Applies to | OutlookBarGroups Object

See Also | Add Method | GroupAdd Event | OutlookBarGroup Object | Using events with Automation