I keep extra calendars for all family members. But whenever I reopen Outlook,
I will have to check all the calendars to see them. Is there a way, Outlook
will show all of them at all times?

Not at this time, but it is an often repeated request. Perhaps in the next
version?

--�
Milly Staples [MVP - Outlook]

Post all replies to the group to keep the discussion intact. Due to
the (insert latest virus name here) virus, all mail sent to my personal
account will be deleted without reading.

After furious head scratching, yoda asked:

| I keep extra calendars for all family members. But whenever I reopen
| Outlook, I will have to check all the calendars to see them. Is there
| a way, Outlook will show all of them at all times?

G'Day Yoda,

You can accomplish this with VBA code - although I am finding
that it occasionally "misfires".

In Outlook, press ALT+F11 to display the VBA window.

Upper Left there is a 'Tree" - double-click "ThisOutlookSession"
to display an empty code window, and paste the in code below.

Be careful to correct any line breaks that OE might have inserted.

Modify the Folder Names in the Application_Start() section to
suit your needs.

The Function GetFolder() is courtesy of Sue Mosher -
http://www.outlookcode.com/codedetail.aspx?id=824
--
Regards,
Pat Garard
Melbourne, Australia
_______________________

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Function GetFolder(strFolderPath As String) As MAPIFolder
' folder path needs to be something like
' "Public Folders\All Public Folders\Company\Sales"
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim arrFolders() As String
Dim I As Long
On Error Resume Next

strFolderPath = Replace(strFolderPath, "/", "\")
arrFolders() = Split(strFolderPath, "\")
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objFolder = objNS.Folders.Item(arrFolders(0))
If Not objFolder Is Nothing Then
For I = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(I))
If objFolder Is Nothing Then
Exit For
End If
Next
End If

Set GetFolder = objFolder
Set colFolders = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Function

Private Sub Application_Startup()
DoEvents
Application.ActiveExplorer.SelectFolder _
GetFolder("Personal Folders\Calendar")
DoEvents
Application.ActiveExplorer.SelectFolder _
GetFolder("Personal Folders\Calendar\SomeOtherCal")
DoEvents
' This next line put us back to Outlook Today
Application.ActiveExplorer.SelectFolder _
GetFolder("Personal Folders")
End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


"yoda" <(E-Mail Removed)> wrote in message
news:BAB479C1-1730-42AE-9AE5-(E-Mail Removed)...
>I keep extra calendars for all family members. But whenever I reopen
>Outlook,
> I will have to check all the calendars to see them. Is there a way,
> Outlook
> will show all of them at all times?

> The Function GetFolder() is courtesy of Sue Mosher -
> http://www.outlookcode.com/codedetail.aspx?id=824

Thanks are also due to Michael Bauer
--
Ich habe einen leeren Kopf!,
Pat Garard
Melbourne, Australia
_______________________

"Pat Garard" <apgarardATbigpondDOTnetDOTau> wrote in message
news:%(E-Mail Removed)...
> G'Day Yoda,
>
> You can accomplish this with VBA code - although I am finding
> that it occasionally "misfires".
>
> In Outlook, press ALT+F11 to display the VBA window.
>
> Upper Left there is a 'Tree" - double-click "ThisOutlookSession"
> to display an empty code window, and paste the in code below.
>
> Be careful to correct any line breaks that OE might have inserted.
>
> Modify the Folder Names in the Application_Start() section to
> suit your needs.
>
> The Function GetFolder() is courtesy of Sue Mosher -
> http://www.outlookcode.com/codedetail.aspx?id=824
> --
> Regards,
> Pat Garard
> Melbourne, Australia
> _______________________
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
> Public Function GetFolder(strFolderPath As String) As MAPIFolder
> ' folder path needs to be something like
> ' "Public Folders\All Public Folders\Company\Sales"
> Dim objApp As Outlook.Application
> Dim objNS As Outlook.NameSpace
> Dim colFolders As Outlook.Folders
> Dim objFolder As Outlook.MAPIFolder
> Dim arrFolders() As String
> Dim I As Long
> On Error Resume Next
>
> strFolderPath = Replace(strFolderPath, "/", "\")
> arrFolders() = Split(strFolderPath, "\")
> Set objApp = CreateObject("Outlook.Application")
> Set objNS = objApp.GetNamespace("MAPI")
> Set objFolder = objNS.Folders.Item(arrFolders(0))
> If Not objFolder Is Nothing Then
> For I = 1 To UBound(arrFolders)
> Set colFolders = objFolder.Folders
> Set objFolder = Nothing
> Set objFolder = colFolders.Item(arrFolders(I))
> If objFolder Is Nothing Then
> Exit For
> End If
> Next
> End If
>
> Set GetFolder = objFolder
> Set colFolders = Nothing
> Set objNS = Nothing
> Set objApp = Nothing
> End Function
>
> Private Sub Application_Startup()
> DoEvents
> Application.ActiveExplorer.SelectFolder _
> GetFolder("Personal Folders\Calendar")
> DoEvents
> Application.ActiveExplorer.SelectFolder _
> GetFolder("Personal Folders\Calendar\SomeOtherCal")
> DoEvents
> ' This next line put us back to Outlook Today
> Application.ActiveExplorer.SelectFolder _
> GetFolder("Personal Folders")
> End Sub
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
>
> "yoda" <(E-Mail Removed)> wrote in message
> news:BAB479C1-1730-42AE-9AE5-(E-Mail Removed)...
>>I keep extra calendars for all family members. But whenever I reopen
>>Outlook,
>> I will have to check all the calendars to see them. Is there a way,
>> Outlook
>> will show all of them at all times?
>
>