How to find a contact in a contact list



I have a list of contacts in my own database that I am accessing with a VB
program that I have written. I want to loop through this list and export them
to my Outlook 2007 contacts folder.

I am starting with the following code to access my Outlook folder:

Dim Contact As Outlook.ContactItem
Dim ContactList As Object
Dim ContactsFolder As Object
Dim OutlookApp As Object
Dim OutlookNamespace As Object

Set OutlookApp = GetObject(, "Outlook.Application")
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set ContactsFolder = OutlookNamespace.GetDefaultFolder(olFolderContacts)
Set ContactList = ContactsFolder.Items

I need to find whether a contact is already in the ContactList based on the
CompanyName field. If it exists, I want to update certain fields in the
ContactItem. If it doesn't, I want to define a new ContactItem.

I have used collections very little, and so I'm not sure how to efficiently
find an item in the collection and know whether or not it exists. Thanks for
your help!



Michael Bauer [MVP - Outlook]

Please see the Restrict or Filter function in the VBA help file. You can
filter for the CompanyName property.

Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <>

Am Wed, 28 Jan 2009 11:12:02 -0800 schrieb Dan:


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question