For Each Loop: Contacts In Contact Folder

Sub ForEach_ContactInContactFolder()

    Dim ContactsFolder As Folder
    Set ContactsFolder = Session.GetDefaultFolder(olFolderContacts)

    MsgBox ("Contacts Found:" & ContactsFolder.Items.Count)

    Dim Contact As ContactItem

    For Each Contact In ContactsFolder.Items
        Debug.Print Contact.FullName
    Next

End Sub