Exchange 5.5 Public Folder Discovery Scripts

[Bartolini]

I am in the process of trying to find out exactly what is in the public folders on a 5.5 server.

I need a script that will tell me what file types are in the folders, who put them there and the date.
I also need the same information for the calendars. I am not sure how to do this efficiently.

So I need to look for the office file types (XLS, DOC, PPT, etc...) and ones for faxes like TIF files.
The last piece is a script to find out what the Rules Assistant has on each folder. That would tell me the FROM and TO rules for mail messages that are dropped in the folders and the dates.

This needs to export to a CSV with the full path to the folder where the files live.

Has anybody done this and have a script that they can send me?

[r035198x]

I am in the process of trying to find out exactly what is in the public folders on a 5.5 server.

I need a script that will tell me what file types are in the folders, who put them there and the date.
I also need the same information for the calendars. I am not sure how to do this efficiently.

So I need to look for the office file types (XLS, DOC, PPT, etc...) and ones for faxes like TIF files.
The last piece is a script to find out what the Rules Assistant has on each folder. That would tell me the FROM and TO rules for mail messages that are dropped in the folders and the dates.

This needs to export to a CSV with the full path to the folder where the files live.

Has anybody done this and have a script that they can send me?

I'm not a VB expert myself but I'll contact all the VB experts and let them know about it.
Good luck and

God bless

[Bartolini]

still no update yet

[danp129]

I am in the process of trying to find out exactly what is in the public folders on a 5.5 server.

I need a script that will tell me what file types are in the folders, who put them there and the date.

Do you want the date the postitem/mailitem was created, modified, sent, or recieved?
I supposed you want e-mail address if available but it's not for exchange users.. Do you want their login or their "display name" (ie BARTOLINI or Bart O. Lini.)
Did you want the message subject to?
Also, a sample of what you WANT the final CSV to look would be helpful.

I also need the same information for the calendars. I am not sure how to do this efficiently.

I'm not sure I can do calendars or Rules but haven't worked on that part yet... maybe you can look for an example and post what you find?

Has anybody done this and have a script that they can send me?

I haven't, no. I will try to do what I can but I'm limited to using Outlook 2003 / Exchange 2000, so what I come up with may not be compatible.

[danp129]

This has stuff commented out because it's a work in progress and I may use some of it.. anyhow, run it and let me know of any errors so far.

Option Explicit
Dim oFile As Scripting.TextStream
'Set path to your export file here
Const sFilePath As String = "c:\PublicFolderExport.csv"
'Set file extensions to look for
Const sExtensionsToLog As String = "doc ppt xls tif"
 
Sub PublicFolders2CSV()
    Dim oFSO As New FileSystemObject
    On Error Resume Next
    Set oFile = oFSO.CreateTextFile(sFilePath, True)
    If Err.Number <> 0 Then
        MsgBox "Could not create '" & sFilePath & "'.  Make sure it is not read locked by another program."
        GoTo Quit:
    End If
    On Error GoTo 0
    Call ExportPublicMessages(Application.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).EntryID)
Quit:
Set oFile = Nothing
Set oFSO = Nothing
End Sub
 
Private Sub ExportPublicMessages(ByVal sEntryID As String)
    Dim i As Integer
    Dim lngCount As Long
    Dim oSubFolder As Outlook.MAPIFolder
    Dim oFolder As Outlook.MAPIFolder
    Dim itm As Object
    Dim oAppointment As AppointmentItem
    Dim oContact As ContactItem
    Dim oDistListItem As DistListItem
    Dim oJournalItem As JournalItem
    Dim oMailItem As MailItem
    Dim oNoteItem As NoteItem
    Dim oPostItem As PostItem
    Dim oTaskItem As TaskItem
 
    Dim sSender As String
    Dim sFiles As String
    'Get folder from entryID
    Set oFolder = Application.GetNamespace("MAPI").GetFolderFromID(sEntryID)
'
'    If oFolder Is Nothing Then
'        GoTo Quit
'    End If
 
Dim filename
 
 
 
    For Each itm In oFolder.Items
        If itm.Class = olMail Or itm.Class = olPost Then
            sFiles = ParseFilesWithExtension(itm)
            If sFiles <> Empty Then oFile.WriteLine ("""" & oFolder.FolderPath & """,""" & itm.ReceivedTime & """,""" & itm.Subject & """,""" & ParseEmailOrX400(itm.SenderEmailAddress) & """,""" & sFiles & """")
        End If
'        If itm.Class = olMail Then
'            Set oMailItem = itm
'            Dim sfrom
'            sfrom = oMailItem.SenderEmailAddress
'            Stop
'        ElseIf itm.Class = olPost Then
'            Set oPostItem = itm
'            Stop
'        End If
    Next 'itm
 
    For Each oSubFolder In oFolder.Folders
        ExportPublicMessages (oSubFolder.EntryID)
    Next 'folder
 
Quit:
 
End Sub
 
Function ParseFilesWithExtension(itm As Object) As String
    Dim Atmt As Attachment
    Dim sFiles As String
    Dim arTmp
'        If Not oMail Is Nothing Then
            For Each Atmt In itm.Attachments
                arTmp = Split(Atmt.filename, ".")
                If sFiles <> Empty Then sFiles = ";" & sFiles
                If InStr(1, sExtensionsToLog, arTmp(UBound(arTmp))) Then sFiles = sFiles & Atmt.filename
                'Atmt.SaveAsFile filename
            Next Atmt
'            Set oMail = Nothing
'        End If
ParseFilesWithExtension = sFiles
End Function
 
 
Function ParseEmailOrX400(ByVal sIn As String) As String
    If InStr(1, sIn, "/") > 0 Then
        Dim arUser
        arUser = Split(sIn, "/")
        ParseEmailOrX400 = Replace(arUser(UBound(arUser)), "CN=", "")
    Else
        ParseEmailOrX400 = sIn
    End If
End Function
 

[Bartolini]

Thanks for helping out.
I ran the script and here is the error message;

Line 2 Column 17

Microsoft VB Script compilation error

Expected end of statement