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