Item used for SendTo Problem

Hi

I have a big problem, I did next code to send mails.

Set aviso = db.createdocument

Set item = New notesitem(aviso,“SendTo”,LIstaOk(i))

While item.ValueLength < Limite And i < indOk

i = i + 1

item.AppendToTextList(ListaOk(i))	

Wend

If item.Text <> “” Then

aviso.Send( False )

Where ListaOK(i) is an array with mail’s account. Problem is that it repeat n times the mail, by example, to one user have 15 mails, some with SendTo field in blank, some with data.

Somebody can help me?, why item class doesnt work fine?.

Thanks in advanced.

Subject: Item used for SendTo Problem

You do not need to append each element of the array. Just use

Set item = New notesitem(aviso,“SendTo”,LIstaOk)