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

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

news.microsoft.com - 22 Sep 2006 10:48 GMT

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

Reply to this Message

Dmitry Streblechenko - 25 Sep 2006 21:38 GMT

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

> Hi all,
>
[quoted text clipped - 6 lines]
>
> tks

Reply to this Message