read protpetry of user from a 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 -- sal21 ------------------------------------------------------------------------ sal21's Profile: http://www.excelforum.com/member.php...fo&userid=2040 View this thread: http://www.excelforum.com/showthread...hreadid=484112 |
All times are GMT +1. The time now is 07:22 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com