Como Abro un Folder con controles MAPI?

[Mickel]

Tengo este codigo...

Código:

MAPISession.UserName = G_Name
MAPISession.Password = G_Key
MAPISession.DownLoadMail = False
MAPISession.SignOn
MAPIMessages.SessionID = MAPISession.SessionID
MAPIMessages.Fetch
lCount = MAPIMessages.MsgCount
For lI = 0 To lCount - 1
    MAPIMessages.MsgIndex = lI
    sSubject = MAPIMessages.MsgSubject
    sBody = MAPIMessages.MsgNoteText
    'Procesar emails...
Next
MAPISession.SignOff

que funciona perfectamente. Pero el problema es que este codigo solo me recorre los mensajes en la INBOX y no dentro de los folders creados en ella. De hecho, ni siquiera los lee.

Que puedo hacer?

[chiappaa]

Una idea:

Set objNamespace = GetNamespace("MAPI")
Set objFolder = objNamespace.Folders("Carpetas personales").Folders("Formularios").Folders("Formu larios Venta")
Set colection_Items = objFolder.Items

For Each objMessage In colection_Items
Debug.Print objMessage.Body
Next


Set objFolder = Nothing
Set objNamespace = Nothing

Slds.