Iterating thru an item in all documents

[rturnbul]

Hi,

I am trying to iterate thru all documents of a database(mydb.nsf)
I want to gather all of the values of an item (LastName)
Question: How do I build an (array of strings, I think). This will become the input for a prompt so a user can choose something.

Part of my code listing shown below ...


code to setup environment ....

Dim db As NotesDatabase
Set db =s.GetDatabase("NotesServer","mydb.nsf",False)
Set collection = db.AllDocuments

Set doc = collection.GetFirstDocument()

While Not doc Is Nothing
mylist = doc.GetItemValue("LastName")

Forall x In mylist
Messagebox x
_________________________________________________________
** need to insert missing code here to build array
_________________________________________________________

End Forall

Set doc = collection.GetNextDocument(doc)
Wend

askme = ws.Prompt(PROMPT_OKCANCELLISTMULT, "Select a Name", "Select one or more names as recipients for this request.",input(1) , input)