..SendObject...[help]

[alessia]

hi
I have found this code in this post

http://groups.google.it/groups?q=sendobject+to+multiple+group:comp.databases.ms-access+group:comp.databases.ms-access&start=10&hl=it&lr=&ie=UTF-8&oe=UTF-8&group=comp.databases.ms-access&selm=378F5579.2547DAFB%40hotmail.com&rnum=16

++-------------------------------------------------------------------------++
Private Sub Comando4_Click( )
Dim db As Database, rs As Recordset, sql As String, emailTo As String
Set db = CurrentDb()
emailTo = ""
sql = "select mail from inserimento_dat i"
Set rs = db.OpenRecordse t(sql)
Do Until rs.EOF
If Not IsNull(rs!mail) Then
'build up email addresses separated by a semicolon
emailTo = emailTo & rs!mail & "; "
End If
rs.MoveNext
Loop
DoCmd.SendObjec t acSendNoObject, , , emailTo, , , , , , True
End Sub
++----------------------------------------------------------------------++

it serves for sending a mail to more addresses...
but to me doesn't work!! argh!
it gives me this error...

Run Time Error '2295'
one or more unknown recipients.. message not envoy..

can someone help me?

do you address him some mails now he/she picks them up from a chart..
but if it had to pick them up from a query?? how can I do??