in a form in windows application

i kept email to text box but for the adress in it i kept on button beside it when i click on the button it should open the adress book of the user

i want to email all the email ids in my adress book

i dont know how to open the adress book of outlook when i click on a button

and add theemail id'sin the textbox

Private Sub DisadressBook()

On Error GoTo ErrMsg

app = New Outlook.Application

nameSpace_Renamed = app.GetNamespace("Mapi")

Call GetAddressBook()

Exit Sub

MsgBox("Couldn't access outlook object")

End Sub

Private Sub GetAddressBook()

Dim i As Object

Dim AddLists As Outlook.AddressLists

For i = 1 To AddLists.Count

Next i

End Sub

the above 2 methods can be used to access adressbook of outlook

Look at this link - http://www.microeye.com/resources/res_outlookvsnet.htm

You might get a solution to what you are looking for (and more)

Private Sub DisadressBook()

On Error GoTo ErrMsg

app = New Outlook.Application

nameSpace_Renamed = app.GetNamespace("Mapi")

Call GetAddressBook()

Exit Sub

MsgBox("Couldn't access outlook object")

End Sub

Private Sub GetAddressBook()

Dim i As Object

Dim AddLists As Outlook.AddressLists

For i = 1 To AddLists.Count

Next i

End Sub

the above 2 methods can be used to access adressbook of outlook