With VB6 how can I open the Address Book window from Outlook.

Hi,
Please see the code to collect the email address from the outlook
Add outlook reference

Private Sub Command1_Click()
 ' Set up Outlook objects.
   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

   Set olns = ol.GetNamespace("MAPI")
   Set cf = olns.GetDefaultFolder(olFolderContacts)
   Set objItems = cf.Items
   iNumContacts = objItems.Count
   If iNumContacts <> 0 Then
      For i = 1 To iNumContacts
         If TypeName(objItems(i)) = "ContactItem" Then
            Set c = objItems(i)
             List1.AddItem c.FullName & " - " & c.Email1Address
         End If
      Next i
      MsgBox "Finished."
   Else
      MsgBox "No contacts to export."
   End If
End Sub

Regards,
M.Raja

Thanks to help me.

If my address book have several folders, how can I select a specific one.
Ex. I have my personal contact, the office contact....

And do you have a link where I can learn the code you wrote.

Thanks again.