I need to extract all of the regular contact fields from Outlook and I'm
trying to figure out how to just grab all of the items of a ContactItem less
the Objects in a loop. Is this possible? I'm coding in VB6

Instead of

with oContactItem
  .Fullname
  .MailingAddressCity
  .MailingAddressStreet
   'etc for each property
end with

I want to just do something like:

for each item in oContactItems
   if item <> "Object"
       'add item value to a collection
           colContactFields.add item.value, item.name
   end if
next

TIA

Matt