Visual Basic - Vital...Urgente!! Acceder a carpetas de correo Out

Buenas

Urgente, necesito obtener todos los e-mail
de una carpeta en concreto de mi Outlook Express.

Lo he probado todo y no jay manera...ayuda

He probado con:
CDO
Mapisession
Mapimessages
Simple Mapi
Mapi.Session
Object-model Outlook (Microsoft Library)

No he podido con nada de esto!!
gracias

Te envié el código por email, pero me fue devuelto.
Es demasiado extenso como para escribirlo aquí
Cualquier cosa mandame un email y te lo replico con el archivo adjunto.
Fijate si ya viste parte de este código:

Private ol As New Outlook.Application
Private ns As Outlook.NameSpace
Private fldr As Outlook.MAPIFolder
Private mm As Outlook.MailItem
Private bFound As Boolean
Dim fldr1 As Outlook.MAPIFolder
Dim s As String

If fld.Folders.Count > 0 And Not bFound Then
Do Until i = fld.Folders.Count


Bye

Benjo si es posible mandarme a mi tambien el código, por que me interesa muchas gracias....

Sub ReadEmail()
Dim oApp As Outlook.Application
Dim oNameSpace As NameSpace
Dim oFolder As MAPIFolder
Dim oMailItem As Object
Dim cFolder As MAPIFolder
Dim myItems As Items
Dim MailCounter As Integer, FolderCount As Integer
MailCounter = 0
Dim sMessage As String
Set oApp = New Outlook.Application
Set oNameSpace = oApp.GetNamespace("MAPI")
Set oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)
MailCounter = oFolder.UnReadItemCount

For FolderCount = 1 To oFolder.Folders.Count
Set cFolder = oFolder.Folders(FolderCount)

For Each oMailItem In cFolder.Items

If oMailItem.UnRead = True Then
List1.AddItem oMailItem.ReceivedTime
End If
Next oMailItem
MailCounter = mailcount + cFolder.UnReadItemCount
Next
Set oMailItem = Nothing
Set oFolder = Nothing
Set mFolder = Nothing
Set oNameSpace = Nothing
Set oApp = Nothing
msg:

If MailCounter = 1 Then
MsgBox "You have 1 new message"
Else
MsgBox "You have " & MailCounter & " new messages"
End If
End Sub

Lo solucionaste ya??