Leggere i contatti di Outlook

' Nei Riferimenti del progetto importare :  Microsoft.Office.Interop.Outlook
Imports Outlook = Microsoft.Office.Interop.Outlook
  Sub LeggeContatti()
    ' Crea Outlook application.
    Dim olApp As Outlook.Application = New Outlook.Application
    ' Legge la carella dei contatti.
    Dim olMapi As Outlook.NameSpace = olApp.GetNamespace("MAPI")
    Dim olContacts As Outlook.MAPIFolder = olMapi.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
    ' Legge il primo contatto dalla cartella Contacts
    Dim olMailItems As Outlook.Items = olContacts.Items
    Dim olContact As Outlook.ContactItem
    olContact = TryCast(olMailItems.GetFirst(), Outlook.ContactItem)
    Do While olContact IsNot Nothing
      ' Queste alcune proprietà di Outlook.ContactItem
      Console.WriteLine(olContact.FullName)
      Console.WriteLine(olContact.Title)
      Console.WriteLine(olContact.Birthday)
      Console.WriteLine(olContact.CompanyName)
      Console.WriteLine(olContact.Department)
      Console.WriteLine(olContact.Body)
      Console.WriteLine(olContact.FileAs)
      Console.WriteLine(olContact.Email1Address)
      Console.WriteLine(olContact.BusinessHomePage)
      Console.WriteLine(olContact.MailingAddress)
      Console.WriteLine(olContact.BusinessAddress)
      Console.WriteLine(olContact.OfficeLocation)
      Console.WriteLine(olContact.Subject)
      Console.WriteLine(olContact.JobTitle)
      olContact = TryCast(olMailItems.GetNext(), Outlook.ContactItem)
    Loop
    ' Clean up.
    olApp = Nothing
    olMailItems = Nothing
    olContact = Nothing
  End Sub