OL2003 Side-by-Side Calendars

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

Guest

I have created a 'side-by-side' calendar that shows under
'My Calendars', and displays side-by-side (with the main
calendar) when the shortcut is checked.
However it needs to be checked each time I start Outlook,
since the view is not persistent.
In Word/Excel I would record a Macro of the 'checking'
process, and use it in (say) document_open() to achieve
this result.
How may I do this in Outlook 2003??
 
Hi Pat,

please call Application.ActiveExplorer.SelectFolder in
Application_Startup to show the calendar side by side.

The method needs a reference on the calendar. You could store e.g. its
path in your code and use Sue´s GetFolder method
(http://www.outlookcode.com/d/code/getfolder.htm), or its EntryID and
StoreID in the Registry and use the GetFolderFromID function.
 
G'Day Mike,

Thank you for your time - I'm still struggling!

In ThisOutlookSession I pasted Sue's GetFolderFunction.

In the Application_Startup() procedure, I put:

Application.ActiveExplorer.SelectFolder GetFolder("Personal
Folders\Calendar\SbSCalendarFolderName")

I restarted Outlook and it worked, although it selected ONLY the SbS Calendar.
(I was asked if I wanted to enable Macros.)

I then added a similar line to select the normal Calender as well - but the
event is not triggered. (I am NOT asked to enable Macros.)

Macro Security is "Medium", and I have added a self-signed Digital Signature.

With:
Private Sub Application_Startup()
MsgBox "Welcome"
Application.ActiveExplorer.SelectFolder GetFolder("Personal
Folders\Calendar")
Application.ActiveExplorer.SelectFolder GetFolder("Personal

Folders\Calendar\SbSCalendarFolderName")
End Sub

I do not get the Message Box (my diagnostic) on Startup, although I can run
the procedure as a Macro and it works.
 
Hi Pat :-)
G'Day ....
Click to expand...

is that something similar to "Gee"?
I restarted Outlook and it worked, although it selected ONLY the SbS Calendar.
(I was asked if I wanted to enable Macros.)

I then added a similar line to select the normal Calender as well - but the
event is not triggered. (I am NOT asked to enable Macros.)
Click to expand...

You need to restart OL again. Did you try it?
Sehr das Rätseln
Click to expand...

Great, that´s almost perfect. (It´s calling "Sehr rätselhaft" :-)
 
G'Day Mike,
{Good Day! Michael,}

Ok the event triggers every time Outlook Starts - Thank you!!

Now there are two lines:

Application.ActiveExplorer.SelectFolder GetFolder("Personal
Folders\Calendar")
Application.ActiveExplorer.SelectFolder GetFolder("Personal
Folders\Calendar\SbSCalendarFolderName")

Regardless of the Order, the Folder in the second line is the
only one selected!
 
Hi Pat, hi Michael,

AFAIK there is *no* way to start the calendars side by side view
automatically...
 
Damn!

But at least we tried AND I have increased in knowledge
and Wisdom - well knowledge anyway.

Thank you both!
 
Hi Pat,

in fact, if e.g. the Inbox is the active folder, then I get this
behaviour, too. But it seems to be just a timing problem. Add a DoEvents
between the two lines and it works.
Es fährt mich verrückt!
Click to expand...

:-))
 
Back
Top