How does one iterate over the fields of an Outlook Contact using VBA?
I get this far, but cannot show (for example) the email field
Sub loopContacts()
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    
        For Each one In myNameSpace.AddressLists
            Debug.Print one.Name
            For Each two In one.AddressEntries
                    Debug.Print "   " + two.Name
            Next
        Next
        Set myOlApp = Nothing
        Set myNameSpace = Nothing
End Sub

---

Clarification of Question by whychild-ga on 09 Nov 2002 20:06 PST

Actualy I gave a bad example.
I have added some custom fields (xCard and xLetter among others) to
outlook and I want to set update the Categories field based on the
contents of my custom fields...
So I want to iterate across all the contact's fields, and if "xCard"
== Yes then append the string "xCard" to the category field...

something like this

   for each one in allContactFields
       if one = "xCard" then Categories = Categories + "xCard"
   next

To display the email address you need 

Debug.Print "   " + two.Name & " " & two.Address