Need script to give name and count of email in all outlook folders to a text file

Hi, SysExpert.

This should do it.  Follow these instructions to use this.

1.  Start Outlook
2.  Click Tools > Macro > Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects and click on Module1
4.  Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window
5.  Edit the code as needed.  I included comments wherever something needs to or can change
6.  Click the diskette icon on the toolbar to save the changes
7.  Close the VB Editor
8.  Run the macro CountMessages

Dim objFile As Object
 
Sub CountMessages()
    Dim objFSO As Object, objStore As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'Change the file name and path on the next line'
    Set objFile = objFSO.CreateTextFile("C:\eeTesting\Folder Count.txt")
    For Each objStore In Session.Stores
        objFile.WriteLine "*** Store = " & objStore.DisplayName
        CountFolder objStore.GetRootFolder
        objFile.WriteLine
    Next
    objFile.Close
    Set objFile = Nothing
    Set objFSO = Nothing
    MsgBox "Finished"
End Sub
 
Sub CountFolder(olkFolder As Object)
    Dim olkSubFolder As Object
    objFile.WriteLine olkFolder.Name & " = " & olkFolder.Items.Count
    For Each olkSubFolder In olkFolder.Folders
        CountFolder olkSubFolder
    Next
    Set olkSubFolder = Nothing
End Sub

Select allOpen in new window

Thanks for the help !

I get an error on line 8

      
get Run-time error '438';
Object doesn't support this property or method

Using outllook 2003 SP3 on Exchange 2003 , fully patched

Running from outlook client.

Can you please test again ?

Thanks !

That code is for Outlook 2007 not 2003.  Apologies, since no version was specified I wrote for the latest version.  I'll see about making changes to get it to work from 2003 and post again.

found this

http://www.microsoft.com/technet/scriptcenter/resources/qanda/jun06/hey0616.mspx

but it does not work either.

The 2 I have listed in my first post, sem to work, but do not give me the info I want ( only folder count, not items in the folder )

Thanks !

Great !

WOrks perfectly !

Cool!