Results 1 to 3 of 3
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    read property of user.... (2000 sp 1)

    i read and export into a sheet the value of user name present into adistribution list....
    is posisble to read the all propety (e.mail, address, departm,ent, ID...ecc...) from each user into this list and insert into cell.?

    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

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: read property of user.... (2000 sp 1)

    See the thread starting at <post#=533,669>post 533,669</post#>, in particular the last reply.

  3. #3
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: read property of user.... (2000 sp 1)

    Hans, sorry for dupes post... i have forgotten this solution, sorry me!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •