Groups Property

Microsoft Outlook Visual Basic

Returns an OutlookBarGroups object representing the set of groups in the Shortcuts pane.

expression.Groups

expression    Required. An expression that returns an OutlookBarStorage object.

Example

The following Microsoft Visual Basic/Visual Basic for Applications (VBA) example displays the number of groups in the Shortcuts pane.

Sub CountOlBarGroups()
	Dim myOlApp As New Outlook.Application
	Dim myOlBar As Outlook.OutlookBarPane
	Dim myCount As Integer
	Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
	myCount = myOlBar.Contents.Groups.Count
	MsgBox "There are " & myCount & " groups in the Shortcuts pane"
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.

Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
myCount = myOlBar.Contents.Groups.Count
MsgBox "There are " & myCount & " groups in the Shortcuts pane"