Libreta de direcciones

En mi caso puse esto en una clase
Lo uso para importar los contactos de Outlook a un
dataset y despues al db de sql.

Miao...
Comprate un libro.



Public Function ImportarContactosDs() As DataSet

Dim ds As New Dataset2




Dim fila As DataRow
Dim ol As New Outlook.Application
Dim olns As Outlook.NameSpace
Dim cf As Outlook.MAPIFolder
Dim c As Outlook.ContactItem
Dim objItems As Outlook.Items
Dim Prop As Outlook.UserProperty
Dim intCntContacts As Integer
Dim i As Integer
olns = ol.GetNamespace("MAPI")
cf = olns.GetDefaultFolder
(Outlook.OlDefaultFolders.olFolderContacts)
objItems = cf.Items

intCntContacts = objItems.Count
If intCntContacts <> 0 Then

For i = 1 To intCntContacts

If TypeName(objItems(i))
= "ContactItem" Then

c = objItems(i)
With c

fila = ds.Contacts.NewRow
()


fila(1) = .FirstName
StrFirstName = .FirstName

fila(2) = .LastName
fila(3)
= .BusinessAddressStreet
fila(4)
= .BusinessAddressCity
fila(5)
= .BusinessAddressState
fila(6)
= .BusinessAddressPostalCode
fila(7) = .Email1Address

End With

ds.Contacts.Rows.Add(fila)

End If
Next i


End If
' Ds.AcceptChanges()

Return ds



End Function

Hola

La pegunta del dia es

Como puedo acceder desde mi aplicacion a la libreta de
direcciones de Outlook, o Outlook Express

Un saludo

Juan Carlos S

.