
Signature
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --
By going to Tools, Options, Other tab, and clicking on the Advanced Button,
I'm able to set Calendar as the default startup option. However, I'm still
not able to make the shared calendar the default when it opens. Any more
suggestions? Thanks.

Signature
PCGrammy
> Am Sat, 28 Jan 2006 13:29:26 -0800 schrieb PCGrammy:
>
[quoted text clipped - 4 lines]
> which
> > are listed as Extended options.
Michael Bauer - 30 Jan 2006 06:24 GMT
Am Sun, 29 Jan 2006 11:46:29 -0800 schrieb PCGrammy:
Yes, another way is to set the folder in the StartUp event. Sample:
Private Sub Application_Startup()
Dim oFld As Outlook.MAPIFolder
Set oFld = Application.Session.GetDefaultFolder(olFolderContacts)
Set Application.ActiveExplorer.CurrentFolder = oFld
End Sub
For getting the folder you want to you can use Sue´s GetFolder function:
http://www.outlookcode.com/d/code/getfolder.htm

Signature
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --
> By going to Tools, Options, Other tab, and clicking on the Advanced Button,
> I'm able to set Calendar as the default startup option. However, I'm still
> not able to make the shared calendar the default when it opens. Any more
> suggestions? Thanks.