Steven,

Look into the Domino objects. Here is some sample code:

oSession =createobject("Lotus.NotesSession")
oSession.Initialize("<UserspasswordHere") && Will use the defualt user on the machine.

laAddressbooks = oSession.AddressBooks && Gets the array of public and private address books NOT a VFP Array
&& Finds the public address book
FOR lnLoopCount = 1 TO ALEN(lvAddressBooks, ARRAY_ROW)
     IF lvAddressBooks[lnLoopCount].IsPublicAddressBook
	loAddressBook = lvAddressBooks[lnLoopCount]
	EXIT 

     ENDIF 
NEXT && lnLoopCount = 1 TO ALEN(laAddressBooks, ARRAY_ROW)

&&Quick if
IIF(loAddressBook.IsOpen,;	&& Check if DB is open
	FALSE,;				&& Discarded
	loAddressBook.Open)		&& Open it if not
	
loView = loAddressBook.GetView("People")	&& Retrieves all people for this address book
IF ISNULL(loView)	&& Verify view was retreived
     RETURN FALSE
	
ENDIF
	
lvEntries = loView.AllEntries

DIMENSION Sourcearray[lvEntries.Count, 2]
FOR lnLoopCount = 1 TO lvEntries.Count
     lvColumns = lvEntries.GetNthEntry(lnLoopCount).ColumnValues
     SourceArray[lnLoopCount, 1] = STRTRAN(lvColumns[2]," , ",", ")
     SourceArray[lnLoopCount, 2] = lvColumns[5]

NEXT && lnLoopCount = 1 TO lvEntries.Count

This has worked in 7 and 8 and should work under 6.

Richard

>Unfortunatly we use Domino/Lotus here. Got any ideas on how to do this with the Domino server?