Serching The Outlook Address Book Through VB
Posted on 2004-10-01
Im working on a project which involves automating an email.
The users address book is very large and therefore can really wait for the full address book to load.
Is there a way of searching the addressbook content by certain criteria??
My code is as follows (currently loads all addressbook enteries, but say I wanted to list all enteries with the word 'Chris' in the name field)
Private Sub Command1_Click()
Dim oRecipiant As ListItem
Dim myAddressList As AddressList
Dim AddressEntry As AddressEntry
'Clear Address Book
lvAddressBook.View = lvwReport
.Add , , "Name"
'.Add , , "Other Field"
Set myAddressList = Application.Session.AddressLists("Global Address List")
For Each AddressEntry In myAddressList.AddressEntries
Set oRecipiant = lvAddressBook.ListItems.Add(, , AddressEntry.Name)