I need to write VBA code to do the following:
Create an Outlook archive(pst file) named 'Sent Items Archive' on the user's C drive.
Move all items in their default sent items folder to this new archive.
Create an Outlook archive(pst file) named 'Deleted Items Archive' on the user's C drive.
Move all items in their default deleted items folder to this new archive.
Create an Outlook archive(pst file) named 'AAA Archive' on the user's C drive.
Loop through all folders in their 'Remote Mail' folder and move all new(not matching a list I have) folders/items to
this new archive.
Compact the new archive folders.
I know that I can create a new archive using the following code:
Dim oApplication As Outlook.Application
Dim oMapi As NameSpace
Dim oSentItemsFolder As MAPIFolder
Dim oDeletedItemsFolder As MAPIFolder
Dim oOtherFolder As MAPIFolder
Dim oAAAArchive As MAPIFolder
Dim oSentArchive As MAPIFolder
Dim oDeleteArchive As MAPIFolder
Dim oItems As Items
Dim ocurItem As MailItem
Dim opstFile As MAPIFolder
Set oApplication = New Outlook.Application
Set oMapi = oApplication.GetNamespace(
Set oSentItemsFolder = oMapi.GetDefaultFolder(olF
Set oDeletedItemsFolder = oMapi.GetDefaultFolder(olF
oMapi.AddStore ("C:\AAA Archive.pst")
oMapi.AddStore ("C:\Sent Items Archive.pst")
oMapi.AddStore ("C:\Deleted Items Archive.pst")
.....
but the new archives get called 'Personal Folder'. I need to specify the names.
I also would appreciate some thoughts on looping throught the 'Remote Mail' folder.
Thanks,
perkc
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
My concern is that the archives have to be setup through code.
When I run the code I posted it creates the archive pst files correctly, but it calls them all 'Personal Folders'. Without being able to specify the name when I create the archive, or at least uniquely identify the newly created archive folder I could end up renaming the wrong folder.
What if the user already has 2 or 3 'Personal Folders' in their Outlook. How would a knwo which one to rename.
You would also have to examine other properties of the folders to be able to determine which is the correct one. For example, all new PST files are created by default with ONLY a "Deleted Items" folder. If you check for the existance of that folder, and verify it is the ONLY folder, then you should be able to logically isolate which is which. I would recommend changing the name immediately after creating the PST.
After looking through the Outlook object model, I see no method by which you can obtain a definite PST file from the path/filename of the file itself.
Good enough.
I ended up using the following steps:
1 - Loop through all folders, renaming all 'Personal Folders' to 'Existing Personal Folders'
2 - Add one pst archive
3 - Rename the archive from 'Personal Folders' to 'Archive Name...'
4 - Repeat 2 & 3 for all new pst archives
5 - Loop through all folders, renaming all 'Existing Personal Folders' to 'Personal Folders'.
Thanks for the help.
perkc
Business Accounts
Answer for Membership
by: routinetPosted on 2005-02-10 at 10:41:23ID: 13278455
I manually created a PST file ("C:\MyStuff.pst") with the name "blahblah". This code changed it:
Public Sub CheckFolders()
Dim myOlApp
Dim myNameSpace
Set myOlApp = GetObject(, "Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI
myNameSpace.Folders("blahb
End Sub