' Outlook Objecte bestimmen
      Dim OutApp As New Outlook.Application
      Dim OutMapFold As Outlook.MAPIFolder = OutApp.GetNamespace( _
        "MAPI").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
      Dim OutAppIt As Outlook.ContactItem
 
For Each OutAppIt In OutMapFold.Items
        ' Code
Next