How do I keep all calendars showing, without having to click them.

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

Guest

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

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
Back
Top