Create Bulk Public Folders in exchange taht are mail enabled.

By dheinack ·
I am looking for a way to create bulk public folders in exchange. I have a public folder called projects in that folder is a folder called 2007 and I need to create 3000 folders
within the 2007 folder with project numbers.
Any ideas would be greatly appreciated.

This conversation is currently closed to new comments.

Thread display: Collapse - | Expand +

All Answers

Collapse -

It can be done with a simple macro

by fwang In reply to Create Bulk Public Folder ...

Assume the full path for your current 2007 folder is "Public Folders\All Public Folders\Projects\2007", and you want to create 3000 sub-folders under this folder, for demonstration purpose, I only use an array with 3 project numbers, you can get the 3000 project numbers from a database or Excel spread sheet. Run following macro will create 3 sub-folders under 2007:

Public Sub CreateFolders()
Dim olapp As Outlook.Application, olNameSpace As Outlook.NameSpace, _
fldPublicFolders As Outlook.MAPIFolder, fldAllPublicFolders As Outlook.MAPIFolder, _
fldProjects As Outlook.MAPIFolder, fld2007 As Outlook.MAPIFolder, i As Integer
Dim projectNumbers(3) As String
projectNumbers(1) = "PN0001"
projectNumbers(2) = "PN0002"
projectNumbers(3) = "PN0003"

Set olapp = CreateObject("Outlook.Application")
Set olNameSpace = olapp.GetNamespace("MAPI")
Set fldPublicFolders = olNameSpace.Folders("Public Folders")
Set fldAllPublicFolders = fldPublicFolders.Folders("All Public Folders")
Set fldProjects = fldAllPublicFolders.Folders("Projects")
Set fld2007 = fldProjects.Folders("2007")

For i = 1 To 3
fld2007.Folders.Add (projectNumbers(i))
End Sub

Collapse -

Bulk Exchange Folders

by dheinack In reply to It can be done with a sim ...

Thanks for the information. Where do I run this Macro so that the folder are created in exchange? Also is there a way to hide these mail enabled folders so that they don't show up in the address book?

Related Discussions

Related Forums