E
ed.sheldon
Sub AddThenRemoveNavGroup()
'Windows 7 / Outlook 2007
Dim oNavGroups As NavigationGroups
Dim oNavGroup As NavigationGroup
Set oNavGroups =
Application.ActiveExplorer.NavigationPane.Modules.GetNavigationModule(olModuleCalendar).NavigationGroups
Set oNavGroup = oNavGroups.Create("myNewGroup")
'Now remove the same group
oNavGroups.Delete (oNavGroup) 'Error: Object required
End Sub
'Windows 7 / Outlook 2007
Dim oNavGroups As NavigationGroups
Dim oNavGroup As NavigationGroup
Set oNavGroups =
Application.ActiveExplorer.NavigationPane.Modules.GetNavigationModule(olModuleCalendar).NavigationGroups
Set oNavGroup = oNavGroups.Create("myNewGroup")
'Now remove the same group
oNavGroups.Delete (oNavGroup) 'Error: Object required
End Sub