RE:Lista de contactosOutLook Express
Hola..
Mira
Express guarca aca
C:\Documents and Settings\Users\Configuración local\Datos de programa\Identities\{CB5CF504-A9F2-440E-A44C-B19337FB1928}\Microsoft\Outlook Express
son bases *.dbx
Lo siguiente lo hago con Outlook
no me ha funcionado con OutlookExpress
Parámetro Folder
3 Deleted Items (Elementos eliminados)
4 OutBox (Bandeja de salida)
5 Sent Items (Elementos enviados)
6 Inbox (Bandeja de entrada)
9 Calendar (Calendario)
10 Contacts (Contactos)
11 Journal (Diario)
12 Notes (Notas)
13 Tasks (Tareas)
16 Drafts (Borrador)
// Sesion de Outlook para Recuperar contactos
// (MAPI)
Integer li_return
oleobject ole_outlook
ole_outlook = Create OLEObject
//Conexión a la sesión OutLook usando 'Outlook.Application'
li_return = ole_outlook.ConnectToNewObject("outlook.application")
//Validación del código de retorno
If li_return <> 0 Then
Messagebox("Error Conección Outlook",li_return)
Destroy ole_outlook
Return
Else
//-----
End If
// Buscar Contactos
OLEObject ole_namespace, ole_folder
Long ll_limit
Integer li_loop
//Crea el objeto namespace
ole_namespace = ole_outlook.GetNameSpace("MAPI")
// El argumento '10' especifica la bandeja de contactos
ole_folder = ole_namespace.GetDefaultFolder(10)
//Obtiene el número de elementos en la carpeta
ll_limit = ole_folder.Items.Count
// Lleno el DDlb
For li_loop = 1 To ll_limit
ddlb_destinatario.AddItem(String(ole_folder.Items(li_loop).Subject))
Next
Destroy ole_outlook
Si se como se hace comento
Prueba y cualquier cosa comentanos.