ok, here's the code I have.  I can't get the fields to come up in the
getMsgs sub. It navigates through the folder tree just fine.  I just
can't seem to get the fields I need from the messages.

Option Explicit
Dim j As Integer
Sub parser()
   CurrentDb.Execute ("delete * from test")
   Dim mySession As Redemption.RDOSession
   Dim pst As RDOPstStore
   Dim store As RDOStore

   Dim folder As RDOFolder 'Variant
   Dim folder2 As RDOFolder
   Dim folder3 As RDOFolder
   Dim c As New Collection
   Dim i As Integer
   j = 1
   Set mySession = CreateObject("Redemption.RDOSession")
'    Dim rs As Recordset
'    Set rs = CurrentDb.OpenRecordset("test")
   Set pst = mySession.LogonPstStore("c:\test.pst")
   Set store = mySession.Stores(1)
   Call getFolders(store.IPMRootFolder)
   Set mySession = Nothing
   MsgBox "all done!"
End Sub

Private Sub getFolders(fs As RDOFolder)
On Error Resume Next
   Dim f As RDOFolder
   Dim m As RDOItems
   For Each f In fs.Folders

       For Each m In f.Items
           Call getMsgs(m)
       Next
       Call getFolders(f)
   Next
End Sub

Private Sub getMsgs(m As RDOItems)

End Sub

On May 27, 12:24 pm, "Dmitry Streblechenko" <dmi...@dimastr.com>
wrote: