Outllok favorites view

Mueller-Lynch Thomas · Joined: 07 Feb 2008 Posts: 1

HI,

with the following code I can add a folder to the favorites view:
Dim myOlApp As New Outlook.Application
Dim myNS As Outlook.NameSpace
Set myNS = myOlApp.GetNamespace("MAPI")
Set myAPF = myNS.Folders("Public Folders").Folders("All Public Folders")
myAPF.Folders("Shared Contacts").AddToPFFavorites

How can I list all the folders stored within that view at the moment?
Could you please send me a smal script?

Thanks

Archived from group: microsoft>public>office>developer>outlook>vba

Ken Slovak - [MVP - Outlo · Joined: 12 Aug 2007 Posts: 405

Set myAPF = myNS.Folders("Public Folders").Folders("Favorites")

That will get you to Favorites. Get the Folders collection of Favorites and
iterate that collection to list all folders in Favorites.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm

"Mueller-Lynch Thomas" wrote
in message @microsoft.com...
> HI,
>
> with the following code I can add a folder to the favorites view:
> Dim myOlApp As New Outlook.Application
> Dim myNS As Outlook.NameSpace
> Set myNS = myOlApp.GetNamespace("MAPI")
> Set myAPF = myNS.Folders("Public Folders").Folders("All Public Folders")
> myAPF.Folders("Shared Contacts").AddToPFFavorites
>
> How can I list all the folders stored within that view at the moment?
> Could you please send me a smal script?
>
> Thanks
>