Retrieve Auto Archive data using VBA

[MgtCons]

I'm trying to retrieve Auto Archive information from folders in Outlook 2000
using VBA.
I have been advised to use CDOLive for that, but CDOLive only seems to be
working in an Exchange-server environment.
I use a stand-alone OL2000 "only Internet e-mail" installation on Windows
XP-Pro.
Can anybody help me to get to the hidden messages?

 

[Ken Slovak - [MVP - Outlook]]

You looked at the information at http://www.cdolive.com/cdo10.htm and
http://www.cdolive.com/cdo5htm?

It's been a long time since I programmed Outlook in IMO mode so I'm
not sure if the MAPI for that mode is capable of doing this, if it
isn't you'd need to switch to C/W mode. Assuming it's capable of it:

Assuming that objFolder is the folder of interest and is a MAPI.Folder
object:

On Error Resume Next
Set colHiddenMessages = objFolder.HiddenMessages
Set objFilter = colHiddenMessages.Filter
objFilter.Type = "IPC.MS.Outlook.AgingProperties"
If colHiddenMessages > 0 Then
Set objArchiveProps = colHiddenMessages.Item(1)
'you now have the hidden message, get its properties
Else
Err.Clear
End If

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Lead Author, Professional Outlook 2000 Programming, Wrox Press
Lead Author, Beginning VB 6 Application Development, Wrox Press
Attachment Options
http://www.slovaktech.com/attachmentoptions.htm
Extended Reminders
http://www.slovaktech.com/extendedreminders.htm