Group Schedule

  • Thread starter Thread starter Theodore Isiah Carson
  • Start date Start date
T

Theodore Isiah Carson

Hello,

Myself and a co-worker are trying to customize Outlook
2000/2002. We would like for our end users to be able to
click a customized button on the outlook toolbar and
display a group schedule/calendar

Currently we have to:

(1) Click Calender (In folderview)
(2) Click the schedules button on the toolbar
(3) Select the group calendar and click the open button

and then we are presented with a availability view of the
calendars of the conference rooms.

What we want to know is if there is a way to achieve this
programatically in vba or custom form(s)?

Thanks much in advance.
 
Outlook does not expose any automation hooks for Group Schedules beyond using the Office CommandBar interfaces for executing existing menus/buttons. You can use the code below to select the default Calendar and automate clicking on the "View Group Schedules..." menu:

Sub ShowGroupSchedulesDialog()
Dim objNS As Outlook.namespace
Dim objDefaultCalendar As Outlook.MAPIFolder
Dim objCBC As Office.CommandBarButton

Set objNS = Application.GetNamespace("MAPI")
Set objDefaultCalendar = objNS.GetDefaultFolder(olFolderCalendar)
Set ActiveExplorer.CurrentFolder = objDefaultCalendar
Set objCBC = ActiveExplorer.CommandBars.FindControl(, 7002)
If Not objCBC Is Nothing Then objCBC.Execute
End Sub
 
Back
Top