O2003 - Check availability of calendar menu bar

[Frank Bouillon]

Hi,



A week ago I started a thread how to open a group calendar.



The only possibility seems to be the ugly SendKeys.



But that'll only work if the appropriate (calendar) menu bar is available.



Can I check this availability?



Something like:
Do until Application.MenuBars("CalendarMenuBar") = True
x = x + 1
Loop



Thanks again

Frank


***** Old Thread ***********
I thought doing a little Loop until the menubar is available but I don't
know how to check this.

Something like:
Do until Application.MenuBars("CalendarMenuBar") = True
x = x + 1
Loop

Thanks for any futher help.
Frank


"Sue Mosher [MVP-Outlook]
" Michael, I think Frank is talking not about a calendar folder but about a
group calendar item. Those aren't accessible programmatically, except to set
properties with CDO or Redemption.

"Michael Bauer [MVP - Outlook]">

 

[Michael Bauer [MVP - Outlook]]

Am Mon, 28 Aug 2006 17:20:31 +0200 schrieb Frank Bouillon:

The CommandBars object fires an OnUpdate event, maybe that helps. Whether an
object is available or not could be checked by e.g.:

If Not Application.ActiveExplorer.CommandBars("name") Is Nothing Then ...

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --

Hi,



A week ago I started a thread how to open a group calendar.



The only possibility seems to be the ugly SendKeys.



But that'll only work if the appropriate (calendar) menu bar is available.



Can I check this availability?



Something like:
Do until Application.MenuBars("CalendarMenuBar") = True
x = x + 1
Loop



Thanks again

Frank


***** Old Thread ***********
I thought doing a little Loop until the menubar is available but I don't
know how to check this.

Something like:
Do until Application.MenuBars("CalendarMenuBar") = True
x = x + 1
Loop

Thanks for any futher help.
Frank


"Sue Mosher [MVP-Outlook]
" Michael, I think Frank is talking not about a calendar folder but about a
group calendar item. Those aren't accessible programmatically, except to set
properties with CDO or Redemption.

"Michael Bauer [MVP - Outlook]">

Frank, SendKeys is never a stable solution. In your case, what should that
be good for?

If you want to make that group calendar the current one then you could do
that directly:

Dim Folder as Outlook.MapiFolder
Set Folder = ....
Set Application.ActiveExplorer.CurrentFolder = Folder