Shortcuts Property

Returns an OutlookBarShortcuts collection of shortcuts contained within the Shortcuts pane.

expression.Shortcuts

expression    Required. An expression that returns an OutlookBarGroup object.

Example

This Microsoft Visual Basic/Visual Basic for Applications (VBA) example deletes all empty groups in the Shortcuts pane.

Sub DeleteEmptyGroups()
 Dim myOlApp As New Outlook.Application
 Dim myOlBar As Outlook.OutlookBarPane
 Dim myOlGroup As Outlook.OutlookBarGroup
 Dim x As Integer
 Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
 For x = myOlBar.Contents.Groups.Count To 1 Step -1
    Set myOlGroup = myOlBar.Contents.Groups.Item(x)
    If myOlGroup.Shortcuts.Count = 0 Then
        myOlBar.Contents.Groups.Remove x
    End If
 Next x
End Sub
		

If you use Microsoft Visual Basic Scripting Edition (VBScript) in a Microsoft Outlook form, you do not create the Application object. This example shows how to perform the same task using VBScript code.

Sub CommandButton1_Click()
 Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
 For x = myOlBar.Contents.Groups.Count To 1 Step -1
     Set myOlGroup = myOlBar.Contents.Groups.Item(x)
     If myOlGroup.Shortcuts.Count = 0 Then
         myOlBar.Contents.Groups.Remove x
     End If
 Next 
End Sub