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

  • Thread starter Thread starter news.microsoft.com
  • Start date Start date
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
 
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
 
Back
Top