import from distribution list



I read and import into a sheet the user into adistribution list....
is posisble to read the propety from each user into this list and
insert into cell.?
For example: Nmae, Address, phone, Ofice...eccc


Sub ELENCO()


Range("A2:B50000").ClearContents


Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myGAddressList = myNameSpace.AddressLists("Elenco Indirizzi
Globale")
Set myGEntries = myGAddressList.AddressEntries
RIGA = 2


For Each lista In myGEntries


If lista = "A.T.C.B. - Utenti" Then


Range("A" + RIGA) = lista


For Each NOM In lista.Members
Range("B" + RIGA) = UCase(NOM)
RIGA = RIGA + 1
Next NOM
Exit For
End If


Next lista


Range("A2").Select


'Call Worksheet_SelectionChange


MsgBox ("IMPORT TERMINATO!")


End Sub

.