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

.



Relevant Pages

  • outlook import dl
    ... Sub ELENCO() ... Set myGEntries = myGAddressList.AddressEntries ... For Each lista In myGEntries ... For Each NOM In lista.Members ...
    (microsoft.public.excel)
  • IMPORT PROPETRY OF USER INTO EXCEL
    ... Sub ELENCO() ... Set myGEntries = myGAddressList.AddressEntries ... For Each lista In myGEntries ... For Each NOM In lista.Members ...
    (microsoft.public.office.developer.outlook.vba)
  • import property from outlokk distribution list
    ... Sub ELENCO() ... Set myGEntries = myGAddressList.AddressEntries ... For Each lista In myGEntries ... For Each NOM In lista.Members ...
    (microsoft.public.excel.programming)
  • read protpetry of user from a distribution list..
    ... Sub ELENCO() ... Set myGEntries = myGAddressList.AddressEntries ... For Each lista In myGEntries ... For Each NOM In lista.Members ...
    (microsoft.public.excel)
  • Re: import from distribution list
    ... > For Each lista In myGEntries ... property is a string type it works to compare lista with a string. ... > Next NOM ...
    (microsoft.public.office.developer.outlook.vba)