Outlook2003 Stript How to extract a list of contact by the Company Name

N

news.microsoft.com

Hi all,

On a personal Form I want to fill a combo box with all the contact (from
public contact folder) that have a specific Company Name

I don't where to start

can someone help

tks
 
D

Dmitry Streblechenko

set Contacts = Application.Session.GetDefaultFolder(olFolderContacts)
set Items = Contacts.Items
set Item = Items.Find("[CompanyName] = 'TheName'")
do while not (Item Is Nothing)
Debug.Print Item.FileAs
set Item = Items.FindNext
loop


Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 

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

Similar Threads

Outlook 2k6 Script: Pb extracting list of contact. 9
Changing folder class Id 2
How to know the name of the form user in a folder 6
Outlook 2k3 Script: Ordering a combo 1
Outlook 2k3 script: Open contact window 3
Extracting Email from contact Item 1
Copy Contacts in a Public Folder to a Local Contacts Subfolder 7
Linking a contact to a journal entry 1

Top