Email folders & subfolders? (2002)

[Matz]

Hi, Hans - I need this code again, but the link does not work - any thoughts?

[HansV]

Like many others, this attachment was lost in the server crash of August 2007. I don't have the code any more either, but I'll see if the old brain cells can reconstruct it later today, I don't have enough time now.

[Matz]

Ahh.

No probs, I am too trying to reconstruct the code. Thanks Hans.

[Matz]

Ok, here is the code I have currently.

It is to duplicate the folder structure of a .pst file. it copies the structure of a pst called 'Current', to a empty .pst called 'temp'

this is helpful as many managers want to copy their pst structure, and i can run this code to provide them with an empty structure.

Sub r1()
s1 Session.Folders("Current"), Session.Folders("temp")
End Sub


Sub s1(fRoot As MAPIFolder, fCopy As MAPIFolder)
On Error GoTo 1
Dim f As MAPIFolder, i As Integer, fC As MAPIFolder
For Each f In fRoot.Folders
Set fC = fCopy.Folders.Add(f.Name)
If f.Folders.Count > 0 Then
s1 f, fC
End If
Next
Set f = Nothing
Exit Sub
1:
Debug.Print f.Name, f.FolderPath
Resume Next
End Sub

[JoeP517]

Check out Download details: Outlook 2007/2003/2002 Add-in: Personal Folders Backup. It just makes a copy of the specified PST file. You can then copy it, move it, rename it.

Joe