No...

[Bosma_Development]

I do this from my local drive, no network.
I have added the reference 'Micosoft outlook 9.0 object library' to the project and I'm using following code:

Private Sub cmdShow_Click()

On Error Resume Next
Dim i As Integer
With lstEmails
For i = 0 To .ListCount - 1
If .Selected(i) Then
MsgBox .ListIndex(i)
End If
Next
End With

End Sub

Private Sub Form_Load()

'Get the outlook instance:

Dim moMail As Object
Dim loNameSpace As Object
Dim loNameAddresses As Object
Dim loAddresses As Object
Dim loAddressList As Object

Set moMail = New Outlook.Application
Dim moAddresses As Outlook.AddressLists

Set loNameSpace = moMail.GetNamespace("MAPI")
Set loAddresses = loNameSpace.AddressLists("Contacts")
Set loAddressList = loAddresses.AddressEntries


'Add -> lstEmails:
lstEmails.Clear
For i = 1 To loAddressList.Count
lstEmails.AddItem loAddressList.Item(i).Address
Next i

End Sub

[Serge]

Are you trying to add all names to the listbox??? If that's the case, here's what you can do:

Private Sub Command1_Click()
    Dim i As Integer
    Dim objMail As New Outlook.Application
    Dim objAddList As Outlook.AddressList
    Dim objNameSpace As Outlook.NameSpace
    Dim objAddEntCol As Outlook.AddressEntries
    Dim objAddEntry As Outlook.AddressEntry

    Set objNameSpace = objMail.GetNamespace("MAPI")
    Set objAddList = objNameSpace.AddressLists("Contacts")
    Set objAddEntCol = objAddList.AddressEntries
    
    objAddEntCol.Sort
    Set objAddEntry = objAddEntCol.GetFirst
    
    Do Until objAddEntry Is Nothing
        List1.AddItem objAddEntry.Name
        Set objAddEntry = objAddEntCol.GetNext
    Loop
    
    Set objAddEntCol = Nothing
    Set objAddEntry = Nothing
    Set objAddList = Nothing
    Set objList = Nothing
    Set objNameSpace = Nothing
End Sub

[Edited by Serge on 11-21-2000 at 06:32 PM]