RE:Lista Global (Exchange)
Hola
Asi recupero.
Saludos
// 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