• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 701
  • Last Modified:

Export Exchange Public Folder Data to CSV

My client has created several custom forms through outllook on their exchange database (exchange 2000 public folders). They have added extra detail fields. I need to get all this information out of exchange and into a CSV, XML or any other transferrable format to import into an application we are developing for them.

Does anyone know of a simple way to do do this?
  • 3
  • 2
1 Solution
David LeeCommented:
Hi, mansol2.

Assuming that the data from the additional fields is being stored in user-properties, then I can do this with a simple bit of scripting.  Do you want just the custom fields or are there stock fields you want too?

mansol2Author Commented:

I am looking for the stock fields too. Could you give me a couple of pointers or some sample script and I will try to do it myself.


David LeeCommented:
Here's an export routine I wrote for another question.  This one exports appointments.  I've added comments to help you understand how it works.  Stock fields are referred to by their property name.  For example, an appointment item's starting time is in a property called Start.  Built-in properties are all documented in online help for the particular object type (i.e. message, task, appointment, etc.).  User-properties are stored in a collection called UserProperties.  Use code like this to get the value of a userproperty:

    varValue = Item.UserProperties.Item("MyUserPropertyName").Value

varValue is a variable to hold the returned value
Item is any Outlook object (e.g. message, task, appointment, etc.)
MyUserPropertyName is the name of the property to be retrieved

Sub ExportAppointments()
    Const S1 = """"
    Const S2 = ""","""
    Dim olkItems As Outlook.Items, _
        olkAppt As Outlook.AppointmentItem, _
        objFSO As Object, _
        objFile As Object, _
        varBuffer As Variant
    'Open the folder that's currently selected in Outlook.  This makes the routine more flexible than opening a specific folder.'
    Set olkItems = Application.ActiveExplorer.CurrentFolder.Items
    'Loop to process each item in the folder.'
    For Each olkAppt In olkItems
        'Test to make sure that the item is of the desired type.'
        If olkAppt.Class = olAppointment Then
            With olkAppt
                'Build a CSV row for the current record.  The appointment fields are all stock fields.'
                varBuffer = varBuffer & S1 & .Subject & S2 & .Body & S2 & .Start & S2 & .End _
                    & S2 & .AllDayEvent & S1 & vbCrLf
            End With
        End If
    'Create a file and write the CSV data to it.'
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile("C:\eeTesting\Calendar - " & olkItems.Parent.Parent.Name & ".csv")
    objFile.WriteLine varBuffer
    Set objFile = Nothing
    Set objFSO = Nothing
    Set olkAppt = Nothing
    Set olkItems = Nothing
    MsgBox "All done!", vbInformation + vbOKOnly, "Export Appointments"
End Sub

Open in new window

mansol2Author Commented:
Nice and clear - took me right back to my cBasic days - when 64K was enough memory to run an accounts program !!!
David LeeCommented:
You're welcome.  Glad I could help out.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Making Bulk Changes to Active Directory

Watch this video to see how easy it is to make mass changes to Active Directory from an external text file without using complicated scripts.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now