Ho risolto il problema di invio delle 7200 e-mail. Creo un ciclo che mi legge 50 mail alla volta. Le associa tutte ad una variabile e le invio. Poi le successive e così via fino alla fine del DB.

ES.

do UNTIL RS.eof or c = 50
c = c + 1
c = Int(c)
gruppo = gruppo & RS("email") & ";"

RS.movenext
loop

Le mail le manda senza problemi e pure veloce. Ora ho un altro problemone. Devo nascondere i destinatari. MA come si fa ?????????