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!

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!

Thanks Eric,

This is what i am loking for, sorry to be a pain or thick! A couple
quick questions if i may,
Does the macro go under the userform or to the combo box,
In the combo box properties which field to i need to edit so that i can
see my contacts

Thanks in advance for all your help

Regards

Oggy


Eric wrote:
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!

Your code should go in the UserForm_Initialize event. When working with
combo boxes, use code like this to add data to it:

ComboBox1.AddItem "My string"

However, we're now deviating from Outlook specific programming questions as
your current issues relate to general programming in VBA. I'll be glad to
help you with the Outlook stuff, but I'd recommend a good book or other
resources on the Internet for general Visual Basic questions.

--
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:

Thanks Eric,

This is what i am loking for, sorry to be a pain or thick! A couple
quick questions if i may,
Does the macro go under the userform or to the combo box,
In the combo box properties which field to i need to edit so that i can
see my contacts

Thanks in advance for all your help

Regards

Oggy


Eric wrote:
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!

Hi Oggy,

One way to accomplish your task quickly is to use the IMPORT EXPORT function
found in OUTLOOK. It allows you to export the contact list directly to
Excel. The wizzard lets you to filter and select which contact fields you
want to export. IMPORT EXPORT is found under the FILE drop down.

Regards,
Mike

"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!