Macro to copy folder views

S

simonc

I want to write a macro to copy a view, which I have defined, to all mail
folders. The view was defined for the Inbox, and is called "Preferred". What
is the correct syntax for specifying this view so it can be applied to other
folders?

The central part of the macro will be something like:

Dim objNS As NameSpace
Dim objFolders, objFolder
Set objNS = Application.GetNamespace("MAPI")

Set objFolders = objNS.Folders
For Each objFolder In objFolders
*** set folder view to be Inbox preferred view ***
Next

with the bit in asterisks being the bit I don't know how to do!

Grateful for any help.
 
Top