Как получить данные из адресной книги Outlook?

 Dim itemx As ListViewItem
 
        Dim oApp As Outlook._Application = New Outlook.Application()
 
        Dim oNS As Outlook.NameSpace = oApp.Session
 
        Dim oALs As Outlook.AddressLists = oNS.AddressLists
        Dim oGal As Outlook.AddressList = oALs.Item("Глобальный список адресов")
 
        Dim oEntries As Outlook.AddressEntries = oGal.AddressEntries
        Dim oEntry As Outlook.AddressEntry = oEntries.GetFirst
 
        For i As Long = 1 To oEntries.Count - 1
            If oEntries(i).DisplayType = Outlook.OlDisplayType.olUser Then
                itemx = ListView1.Items.Add(oEntries(i).Name)
                itemx.SubItems.Add(oEntries(i).GetExchangeUser.JobTitle)
                itemx.SubItems.Add(oEntries(i).GetExchangeUser.BusinessTelephoneNumber)
                itemx.SubItems.Add(oEntries(i).GetExchangeUser.OfficeLocation)
                itemx.SubItems.Add(oEntries(i).GetExchangeUser.PrimarySmtpAddress)
                itemx.SubItems.Add(oEntries(i).GetExchangeUser.CompanyName)
                itemx.SubItems.Add(oEntries(i).GetExchangeUser.Alias)
            End If
        Next
 
        oApp = Nothing
        oNS = Nothing
        oALs = Nothing
        oGal = Nothing
        oEntries = Nothing
        oEntry = Nothing