title: How to print the name and value of each Outlook Contact field with VBA
body: <p>For each Outlook Contact I need to grab the name and value of each field.<br>
  Eg.</p>
  
  <pre><code>    FirstName:  John
      LastNmae:  Doe
  ... etc.
  </code></pre>
  
  <p>How can I go about this without referencing each field individually?  </p>
  
  <p>With the code below I can print the name of each property, but I don't know how to print the value.  The line that is commented out throws an error:  "Invalid procedure call or argument"</p>
  
  <pre><code>Dim ContactsFolder As Folder
  Set ContactsFolder = Session.GetDefaultFolder(olFolderContacts)
  Dim Contact As ContactItem
  Dim i As Integer
  
      For Each Contact In ContactsFolder.Items
          id = Contact.EntryID
          Debug.Print Contact.FirstName
          Debug.Print id
          For i = 0 To Contact.ItemProperties.Count - 1
              Debug.Print Contact.ItemProperties(i).Name
              'Debug.Print Contact.ItemProperties(i).Value
          Next
      Next
  </code></pre>