Automate Export function of Outlook

Question

I am fairly new to scripting and have been tasked to split several 20GB+ pst's by year for archiving. I've got multiple pst archives per user (thanks to previous sysadmin), all with sub-folders and I need to keep the folder structures but extract all
of 2007, 2008 , 2009 etc emails into their own pst's. I have tried some 3rd party applications but they have all failed rather spectacularly. Any help would be greatly appreciated, even if someone can just point me in the right direction to get started. Am
I correct in saying that Exchange 2007 cannot export PST's because they aren't part of the Mailbox Identity?

Answer 1

Hello Steve,
You may consider automating Outlook. The Namespace class provides the AddStore/AddStoreEx method
which dds a Personal Folders (.pst) file to the current profile. You just need to pass the
path of the .pst file to be added to the profile. If the .pst file does not exist, Microsoft Outlook creates it.
Sub CreatePST()
Dim myNameSpace As Outlook.NameSpace
Set myNameSpace = Application.GetNamespace("MAPI")
myNameSpace.AddStore "c:\" & myNameSpace.CurrentUser & "\.pst"
End Sub
Then you will get access to folders in the store and will be able to copy the required folders or items.
See Getting
Started with VBA in Outlook 2010 for more information.