Outlook Macro to Display autoarchive settings

[Guest]

I want to create a macro to display the autoarchive setting for all folders.
i.e Folder -> Properties -> Autoarchive (Tab) -> "Move old items to" XYZ.

I am not familiar with macro but I have found this code snippet on the web

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

' instantiate Items collections for folders we want to monitor
Set objFolders = objNS.Folders
For Each objFolder In objFolders
MsgBox objFolder.Name
Next
Set objNS = Nothing
End Sub

It would be good if the output was formatted in a table format but event if
the output was in a MessageBox that would do.

Could any lend a hand and extent this to display the information that I
want. Or if you could point me in the right direction.

Thanks!!

 

[Guest]

Any suggestions from anyone?