Copy PST structure

[yak77]

Hi,
In our company we create a new PST (Personal Folders) for each user every year(to avoid the 2 GB size problems).
Is there a way(using VBA or any other method) to copy only the folder structure of a PST to another PST without the emails????

The users dont want to change the PST , coz that means that they have to recreate the whole folder structure in the new PST.

Thanks

[RobDog888]

You could probably write some code to create the folder structure
you need. Here is something to get you started.
Add a reference to 'Microsoft Outlook x.x Object Library'.
When you run this make sure that Outlook is running.
This is good for either pst or exchange mailboxes.

BTW: It sounds like you company should be using MS Exchange
Public Folders to get around this. Then just archive the data
every year into that years name. Ex. 'Public Data Current' and 'Public Data 2002'.

Option Explicit
 
Private Sub cmdCheckFolderStructure_Click()
    Call CreateFolderStructure("Standard Inbox Sub-Folder1")
    Call CreateFolderStructure("Standard Inbox Sub-Folder2")
    Call CreateFolderStructure("Standard Inbox Sub-Folder3")
End Sub
 
Private Sub CreateFolderStructure(ByVal sFolderName As String)
 
    Dim oNS As Outlook.NameSpace
    Dim oInbox As Outlook.MAPIFolder
    Dim oNewFolder As Outlook.MAPIFolder
    Dim i As Integer
    Dim bFound As Boolean
    
    Set oNS = Application.GetNamespace("MAPI")
    Set oInbox = oNS.GetDefaultFolder(olFolderInbox)
    For i = 1 To oInbox.Folders.Count
        If oInbox.Folders.Item(i).Name = sFolderName Then
            bFound = True
            Exit For
        Else
            bFound = False
        End If
    Next
    If bFound = False Then
        Set oNewFolder = oInbox.Folders.Add(sFolderName, olFolderInbox)
    End If
    
End Sub

Enjoy