Пытаюсь перебрать сообщения из Outlook Express вот таким способом :

Dim ol As New Outlook.Application
Dim olns As Outlook.NameSpace
Dim cf As Outlook.MAPIFolder
Dim c As Outlook.MailItem
Dim objItems As Outlook.Items

Set olns = ol.GetNamespace("MAPI")
Set cf = olns.GetDefaultFolder(olFolderSentMail)
Set objItems = cf.Items

iNumContacts = objItems.Count
If iNumContacts <> 0 Then
For i = 1 To iNumContacts

Set c = objItems(i)
msgbox c.Recipients.Item(1).Address

Next i
rst.Close
End If

Но считываются собщения из Outlook . Как можно прочесть сообщения из Outlook Express ?