Como Abro un Folder con controles MAPI?

[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.