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

It seems like I figure out the answer right after I post. 2nd Time today.
Sorry for the clutter. The ItemProperties collection gets me where I want to
go.