Listar Contactos de un All Groups del Outlook

22/08/2006 - 16:10 por MartinR | Informe spam
Hola a todos, continúo creando mi aplicación de correo electrónico
utilizando los contactos del Outlook y el Exchange 2003.
Ya puedo listar y utilizar todos los contactos del "All Users" que
se encuentran en el Outlook local.
Pero ahora mi problema es poder desplegar contactos que se encuentran
dentro de los grupos de direcciones; "All Groups".
Puedo desplegar toda la lista de los grupos pero no las direcciones y
usuarios que se encuentran dentro de cada grupo.
Les dejo el código que estoy utilizando para ver la lista de los
grupos, y si alguien me puede ayudar para poder entrar a alguno de los
grupos que despliego y poder capturar los usuarios que los integran.

Código:

Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System.Reflection

Module Module1

Sub Main()
Dim i As Integer
Dim oApp As Outlook._Application = New Outlook.Application
Dim oNS As Outlook.NameSpace = oApp.Session
Dim cContacts As Outlook.AddressLists = oNS.AddressLists
Dim AllUsers As Outlook.AddressList = cContacts.Item("All
Groups")
Dim oEntradas As Outlook.AddressEntries AllUsers.AddressEntries
Dim Usuario As Outlook.AddressEntry = oEntradas.GetFirst

Try
Console.WriteLine("GRUPOS DE CONTACTOS")
Console.ReadLine()
For i = 1 To oEntradas.Count
Usuario = oEntradas.Item(i)
Console.WriteLine(Usuario.Name)
Next
Console.ReadLine()
Catch
Console.WriteLine("Ocurrio un error al desplegar las
listas")
Finally
oNS.Logoff()
oApp = Nothing
oNS = Nothing
cContacts = Nothing
AllUsers = Nothing
oEntradas = Nothing
Usuario = Nothing
End Try
Console.ReadLine()

End Sub
End Module

Desde ya, muchas gracias al que me pueda ayudar!!!!!!
Saludos.
 

Leer las respuestas

#1 Cid
22/08/2006 - 18:09 | Informe spam
MartinR que libreria o utilidad usas para leer correos?
salu2

"MartinR" escribió en el mensaje
news:
Hola a todos, continúo creando mi aplicación de correo electrónico
utilizando los contactos del Outlook y el Exchange 2003.
Ya puedo listar y utilizar todos los contactos del "All Users" que
se encuentran en el Outlook local.
Pero ahora mi problema es poder desplegar contactos que se encuentran
dentro de los grupos de direcciones; "All Groups".
Puedo desplegar toda la lista de los grupos pero no las direcciones y
usuarios que se encuentran dentro de cada grupo.
Les dejo el código que estoy utilizando para ver la lista de los
grupos, y si alguien me puede ayudar para poder entrar a alguno de los
grupos que despliego y poder capturar los usuarios que los integran.

Código:

Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System.Reflection

Module Module1

Sub Main()
Dim i As Integer
Dim oApp As Outlook._Application = New Outlook.Application
Dim oNS As Outlook.NameSpace = oApp.Session
Dim cContacts As Outlook.AddressLists = oNS.AddressLists
Dim AllUsers As Outlook.AddressList = cContacts.Item("All
Groups")
Dim oEntradas As Outlook.AddressEntries AllUsers.AddressEntries
Dim Usuario As Outlook.AddressEntry = oEntradas.GetFirst

Try
Console.WriteLine("GRUPOS DE CONTACTOS")
Console.ReadLine()
For i = 1 To oEntradas.Count
Usuario = oEntradas.Item(i)
Console.WriteLine(Usuario.Name)
Next
Console.ReadLine()
Catch
Console.WriteLine("Ocurrio un error al desplegar las
listas")
Finally
oNS.Logoff()
oApp = Nothing
oNS = Nothing
cContacts = Nothing
AllUsers = Nothing
oEntradas = Nothing
Usuario = Nothing
End Try
Console.ReadLine()

End Sub
End Module

Desde ya, muchas gracias al que me pueda ayudar!!!!!!
Saludos.

Preguntas similares