Saber todas las direcciones de correo interno del exchage (ASP.NET)

[RsOfT]

Hay alguna forma de obtener la lista de correo interno que posee el exchange.
Lo que quiero es, que en mi aplicación, poder llenar un ComboBox con todas las direcciones disponibles para que el usuario pueda enviar un email a la dirección que desee desde mi aplicación.

[RootK]

Te mando un link de un ejemplo para barrer las direcciones de correo, así como para leer los mensaje, borrarlos, etc... esta muy bueno. ..no es dificl adaptarlo.. si tienes dudas por aqui andaré..,está en C#, pero te recomiendo que lo compiles en release y lo ocupes como un componente dentro de tu proyecto.

http://www.gotdotnet.com/Community/W...9-21973c44c5ac

Salu2

[RsOfT]

RootK, me descargué el fuente y estoy utilizando la librería cpSphere.Mail.dll.

Como puedo desde esta librería obtener todos los emails?

Estuve probando y declarando variables, pero no logro dar con la propiedad que me devuelva todos los emails que hay en el outlook.

Lo último que probé fue:

Código:

Dim s As cpSphere.Mail.Mime.Headers.EmailListHeader = New cpSphere.Mail.Mime.Headers.EmailListHeader("Email")
lblConteo.text = s.EmailAddresses.Count

Pero el conteo me da cero.
Me puedes orientar por favor?

[RootK]

Recuerda hacer los siguientes imports

Imports cpSphere.Mail.Pop
Imports cpSphere.Mail.Mime

Despues declaras 2 variables globales para hacer el pop3 y la interfaz:

Private thePop As Pop3
Private components As System.ComponentModel.IContainer

Ya en tu evento donde haces el llamado pondrías algo como ésto: (voy a ponerte un ejemplo que hice en modo console)

Sub Main()

components = New System.ComponentModel.Container
Console.WriteLine("Starting ..")
thePop = New Pop3(components)

thePop.Hostname = "el_servidor_de_correo"
Try
'Connect to server
Console.WriteLine(thePop.Connect().ToString)

'Login
Console.Write("User:")
thePop.Mailbox = Console.ReadLine
Console.WriteLine()
Console.Write("Password :")
thePop.Password = Console.ReadLine
thePop.Login()

'General Statistics are available, print them.
Console.WriteLine("There are {0} messages of combined size {1} bytes", _
thePop.MessageCount, thePop.Size)
Catch ex As Exception
Console.WriteLine("ERROR = " & ex.Message)
Exit Sub
End Try

Dim msg As cpSphere.Mail.Mime.Message
Dim intMsgCount As Int32 = thePop.MessageCount
...
...

End Sub

Salu2 y espero que te haya servido

[RsOfT]

RootK, creo que no no me estás entendiento, jeje.
Yo no quiero descargar los mensajes, sino ver todas las direcciones de email disponibles que existen en el servidor de email, específicamente Exchange!