collapse a specific mail folder from a macro in Outlook 2007

[udo]

Hi,
My Outlook 2007 archives emails to a "archivel" folder tree structure
that is parallel to my mailbox folders.
I've written a macro that switches between a folder and its archive
(see below)
As a safety measure, I want the "archivel" folder collapsed
altogether
when I switch back to the non-archive folder, so that I don't confuse
its folders with the normal ones - any Idea how I do this?

Thanx in advance.


----------------------------------


Sub SwitchBetweenCurrentFolderAndItsArchive()
Dim names As Collection
Set names = New Collection
Dim cf As Folder
Set cf = Application.ActiveExplorer.CurrentFolder
Set f = cf
Do While Not f Is Nothing And TypeOf f Is MAPIFolder
names.Add (f.Name)
Set f = f.Parent
Loop


Dim newf As Folder
If names(names.Count) <> "Archivel Folders" Then
Set newf = f.Folders("Archivel Folders")
MsgBox "Switching from a folder to its ARCHIVE"
Else
Set newf = f.GetDefaultFolder(olFolderInbox).Parent
MsgBox "Switching from an archive back to its FOLDER"
End If


' remove 'mailbox' item
names.Remove (names.Count)


While names.Count > 0
'MsgBox names.Item(names.Count)
Set newf = newf.Folders(names.Item(names.Count))
names.Remove (names.Count)
Wend


Set Application.ActiveExplorer.CurrentFolder = newf
End Sub

 

[Ken Slovak - [MVP - Outlook]]

You can't control whether a store is expanded or not in the folder list or
navigation pane in general. No way to do what you want.

 

[udo]

Thanks, Ken.

As an alternative, can I have my macro open the archive folder in a
new view, rather than navigate to it in the current view?

 

[Ken Slovak - [MVP - Outlook]]

Not quite sure what you mean.

If you want the archive PST shown in a new, different window then you'd add
an Explorer to the Explorers collection (Explorers.Add) and set the
CurrentFolder of the new Explorer to display a folder in your PST file.

If the want the current window (Explorer) to show that PST folder using a
different view you set the ActiveExplorer.View object to whatever named view
you want or you set the ActiveExplorer.View.XML to the explicit view XML you
want to use.




Thanks, Ken.

As an alternative, can I have my macro open the archive folder in a
new view, rather than navigate to it in the current view?

 

[udo]

Thanks, Ken - I used Explorers.Add and that was just what I need.
I saw there's a parameter for setting which display to use, but I
couldn't get rid of the To-Do Bar - how do I do that?

 

[Ken Slovak - [MVP - Outlook]]

No way to do that using code that I know of. The folder display mode options
will open it normally or with no Navigation Pane. Even the
olFolderDisplayFolderOnly setting doesn't do what you want.




Thanks, Ken - I used Explorers.Add and that was just what I need.
I saw there's a parameter for setting which display to use, but I
couldn't get rid of the To-Do Bar - how do I do that?

 

[udo]

Well, thanks anyway - the solution's great for me as it is
I appreciate it