Download Address Book from VB

[cde...@my-deja.com]

Does anyone know how to download the Address Book from VB 5?

Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.

[tim]

I got this from an online help file - slightly modified. I
hope it's what you're looking for.

Tim

Private Sub RetrieveOutlookList()

Dim ol As Object

Set ol = CreateObject("Outlook.Application")

Dim aPAB() As Variant

Dim adl As Outlook.AddressList

Dim e As Outlook.AddressEntry

Dim i As Integer

ReDim aPAB(1000) 'this Dim can be improved, depending on
how many names are in the Address Book.

Set nsMapi = ol.GetNamespace("Mapi")

Set adl = nsMapi.AddressLists("Personal Address Book")

For Each e In adl.AddressEntries

i = i + 1

ComboBox1.AddItem (e.Name) 'adds entry to comboBox1

Next

ReDim aPAB(i - 1)

End Sub

* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!