Whooohoo! Sorry about that but I finally got it to work. Now I've got 2 more
things to overcome with this. The first is how do I recursively go through
every folder in a mailbox and apply these settings? I'm sure someone has
some excellent efficient code to do this. Thanks in advance.....

The next may be a problem. We are using Outlook 2003 in cached mode. We use
cached mode because the Junk-Email filter requires it be turned on to
function. I can set the autoarchive settings and when cached mode is OFF the
settings are correct. However if I turn cached mode ON the settings are
incorrect. Is there some way to refresh this information in the cached
profile via VBA or some other way?

Thanks ahead of time for everyones help. You guys are the just awesome!

Thanks,
Lando

"Ken Slovak - [MVP - Outlook]" <kenslovak@mvps.org> wrote in message
news:ee1IBYaHFHA.400@TK2MSFTNGP14.phx.gbl...
[quote]HiddenMessages is a collection in CDO 1.21 of the Folder object, it's
what's shown in OutlookSpy as Associated Messages and contains all the
hidden items in the folder.

As Michael said, the error is coming from Message.Add, which doesn't
exist. Once you get your Messages collection from HiddenMessages you would
use Messages.Add.

There's some information about the properties for archiving at
www.cdolive.com/cdo10.htm. Also, take a look at
http://www.cdolive.com/archiveviewer.htm, which uses those properties to
view autoarchive settings. It does a lot of what you want to do.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm