Visual Basic

Sub GetEmailAddressClean()

Dim cdoSession, cdoAddressBook, olkRecipients, objAddressEntry, objEU, objAE
CreateObject ("MAPI.Session")
Set cdoSession = CreateObject("MAPI.Session")

cdoSession.Logon "", "", False, False
Set olkRecipients = cdoSession.AddressBook(, "Global Address List", 0, False)

'***********************************************************
'*************** Display Selected Outlook Name *************
'***********************************************************

    For Each objAE In olkRecipients
        MsgBox objAE.Name
    Next

'***********************************************************
'************** Display Email Address **********************
'***********************************************************

    With CreateObject("MAPI.Session")
        .Logon "", "", False, False, 0
        MsgBox .GetAddressEntry(GetNamespace("MAPI").CurrentUser.EntryID).Fields(&H39FE001E).Value
    End With



'***********************************************************
    Set olkRecipients = Nothing
    cdoSession.Logoff
    Set cdoSession = Nothing

End Sub

Private Structure Items
   Dim ID as Integer
   Dim Name as String
End Structure

Dim objItem as Items 
Private Sub AddItem()
   objItem.ID = 1
   objItem.Name = "Name"
   objectlistview.AddObject(objItem)
End Sub

Private sub ChangeItem()
   objItem.Name = "MyName"
   objectlistview.RefreshObject(objItem)
End Sum