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.CountThis has worked in 7 and 8 and should work under 6.