Power Builder - Lista de Correos Outlook

Buenas tardes amigos del foro.

Tengo un codigo que carga los nombres de la lista de correos del otulook. La pregunta es como puedo obtener sus respectivos correos.

estoy usando el sgte codigo:

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)) //Como obtengo el respectivo correo ??
Next

Destroy ole_outlook

Gracias anticipadas,
Saludos,
Guillermo

Doctor

Yo tenia el mismo problema, tu me ayudaste a solucionar el problema.

para que salgan los correos es:
//Primer Nombre
ddlb_correos.Additem(String(ole_folder.Items(li_loop).firstname))
//Correos
ddlb_correos.Additem(String(ole_folder.Items(li_loop).email1address))

Saludos