Power Builder - Lista de contactosOutLook Express

 
Vista:
Imágen de perfil de Antonio
Val: 176
Bronce
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Lista de contactosOutLook Express

Publicado por Antonio (1271 intervenciones) el 19/07/2006 20:51:23
Hola a todos:

¿Alguien sabe donde guarda el OutLook Expres la lista de contactos ?.

Lo que deseo hacer es importarlos a PB para mostrarlos al usuario.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Lista de contactosOutLook Express

Publicado por Jorge (900 intervenciones) el 19/07/2006 22:35:58
Hola..

Mira
Express guarca aca
C:\Documents and Settings\Users\Configuración local\Datos de programa\Identities\{CB5CF504-A9F2-440E-A44C-B19337FB1928}\Microsoft\Outlook Express
son bases *.dbx

Lo siguiente lo hago con Outlook
no me ha funcionado con OutlookExpress

Parámetro Folder
3 Deleted Items (Elementos eliminados)
4 OutBox (Bandeja de salida)
5 Sent Items (Elementos enviados)
6 Inbox (Bandeja de entrada)
9 Calendar (Calendario)
10 Contacts (Contactos)
11 Journal (Diario)
12 Notes (Notas)
13 Tasks (Tareas)
16 Drafts (Borrador)


// 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

Si se como se hace comento
Prueba y cualquier cosa comentanos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar