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!
> >
> >
Similar Threads
