CurrentGroup Property Example

The following example opens the Outlook Bar group named My Shortcuts.

Dim myOlApp As New Outlook.Application
Dim myOlBar As Outlook.OutlookBarPane
Dim myOlGroup As Outlook.OutlookBarGroup
Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
Set myOlGroup = myOlBar.Contents.Groups.Item("My Shortcuts")
Set myOlBar.CurrentGroup = myOlGroup

If you use VBScript, you do not create the Application object. This example shows how to perform the same task using VBScript.

Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
Set myOlGroup = myOlBar.Contents.Groups.Item("My Shortcuts")
Set myOlBar.CurrentGroup = myOlGroup