Print folder list/properties (Outlook 2K sr1/Exch 5.5 sp4)

[klyjen]

Good morning all. I have a user with approximately 150 folders in his nearly-2-GIG mailbox. I'd like to print a list of his folders/subfolders with the size of the folder. I know that I can view this information by looking at the mailbox properties/folder size window from Outlook, but I can't figure out a way to print this information.

Is there a way to do this?

Thanks in advance for your thoughts...

klyjen

[rory]

This VBA routine should do roughly what you want:
<pre>Function MAPIFolderSize(fdr As MAPI.Folder)
Dim fdrSub As MAPI.Folder, itm As MAPI.Message
For Each itm In fdr.Messages
MAPIFolderSize = MAPIFolderSize + itm.Size
Next
Debug.Print fdr.Name & " : " & MAPIFolderSize
If fdr.Folders.Count > 0 Then
For Each fdrSub In fdr.Folders
MAPIFolderSize fdrSub
Next fdrSub
Else
End If
End Function
Sub ListAllFolders()
Dim cdoSession As MAPI.Session, lngSize As Long
Dim fdrMain As MAPI.Folder, fdr As MAPI.Folder
Set cdoSession = New MAPI.Session
cdoSession.Logon
Set fdrMain = cdoSession.GetInfoStore.RootFolder
For Each fdr In fdrMain.Folders
lngSize = MAPIFolderSize(fdrMain)
Next fdr
Set fdrMain = Nothing
End Sub
</pre>

You'll need a reference to the CDO object library for this to work. It's not 100% accurate on all folders - I suspect due to the presence of hidden messages - but seems fine on email folders.
Hope that helps.

[klyjen]

Thanks Rory...I'll give that a shot and see if I get what I need. I appreciate the code.

klyjen