This macro should get you started. It will loop through all your Contact
items; you can use the objContact object to retrieve Contact item properties
for display in whatever controls you use on your UserForm.

Sub LoopThroughContacts()
On Error Resume Next

Dim objContact As Outlook.ContactItem, objContactFolder As
Outlook.MAPIFolder
Dim objContactItems As Outlook.Items, objNS As Outlook.NameSpace
Dim intX As Integer

Set objNS = Application.GetNamespace("MAPI")
Set objContactFolder = objNS.GetDefaultFolder(olFolderContacts)
Set objContactItems = objContactFolder.Items

For intX = 1 To objContactItems.Count
If objContactItems.Item(intX).Class = olContact Then
Set objContact = objContactItems.Item(intX)
Debug.Print objContact.FullName
End If
Next

Set objContact = Nothing
Set objContactItems = Nothing
Set objContactFolder = Nothing
Set objNS = Nothing
End Sub

--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Oggy" wrote:

I am a beginner in VBA and require abit of help. I am trying to setup a
userform on excel 2003 to select and copy into excel, names and
addresses from the contacts folder in outlook 2003. This will then save
me having my contacts in a seperate database as well as outlook.

Many thanks in advance!