Show all shared calendars on startup

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I found this bit of code and at works great when i loop through a list of
shared calendars BUT it creates a new instance of outlook for each calendar.
IS there a way to show all calendars in one outlook window?

tia

Set myRecipient = myNamespace.CreateRecipient(strName(x))
myRecipient.Resolve
If myRecipient.Resolved Then
Set CalendarFolder = _
myNamespace.GetSharedDefaultFolder _
(myRecipient, 9)
CalendarFolder.Display
End If
Next x
 
Only Outlook 2003 gives you the ability to view multiple Calendars at the
same time side-by-side in the same Outlook Calendar folder view, but that
feature cannot be controlled via code.

The only other option is to use some Win32 API calls to tile the separate
Calendar folder windows horizontally.
 
Back
Top