Visual Basic - Por favor: detectar cuentas de Outook

Agradeceria informacion referida a como detectar desde una aplicacion VB, las cuentas de correo electronico que estan definidas en el cuadro de dialogo "Cuentas" del Outlook 2000. Desde ya muchas gracias...

A ver, yo acabo de hacer algunas pruebas y he conseguido obtener una lista con las cuentas. Te envio el ejemplo:

Primero debes añadir la referencia de Microsoft Outlook

Dim OutApp As Outlook.Application
Dim x As Integer

Set OutApp = New Outlook.Application
x = 1

While x <= OutApp.Session.AddressLists.Item(1).AddressEntries.Count

List1.AddItem OutApp.Session.AddressLists.Item(1).AddressEntries.Item(x)
x = x + 1
Wend

El AdressLists.Item(1) dependerá de las listas que tú tengas creadas y de cuál quieres obtener los datos. Suerte!!!!

Gracias María José...