How to find a contact in a contact list

**Dan** · January 28th 09, 08:57 PM posted to microsoft.public.outlook.program_vba

Michael,

Thank you for the suggestion. I'll check it out.

Dan

"Michael Bauer [MVP - Outlook]" wrote:

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
: http://www.vboffice.net/product.html?pub=6&lang=en

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

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!

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can you do a find and replace to a contact list in Outlook?	Dental Smiles	Outlook - Using Contacts	3	December 18th 07 09:35 PM
Can not find contact that exist in the contact list	Chet Guzel	Outlook - Using Contacts	0	July 31st 06 11:52 PM
Cannot find a contact in my list of contacts OL 2003	Bob S	Outlook - General Queries	6	July 4th 06 10:32 PM
Add Global Contact List to email find	bxb7668	Outlook - Using Contacts	1	June 28th 06 02:56 AM
Can't find my contact list	Ron	Outlook - Using Contacts	5	April 18th 06 12:46 AM