*** Get info about each contact into the array FOR EACH loContact IN loAddressBook.Items WITH loContact *** Make sure we only get individual contacts *** and skip any distribution lists IF .Class = 40 && olContact < your processing here > ENDIF ENDWITH ENDFOR