Leer Contactos de outlook.

Miao...
Comprate un libro.

Registra :
C:\WINDOWS\assembly\GAC\Microsoft.Office.Interop.Outlook\1
1.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook
.dll

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

Como puedo Leer archivo de contactos de OutLook, desde

Visual Basic.net 2003

.