Grazie infinite!Allora ho ricopiato la tua funzione ma avviandola ottengo un errore 3265 :elemento non trovato in questo insieme

in particolare facendo il debug la linea in cui è presente l errore è quella relativa a

strMail = strMail & rs(Email) & ";"

Poi ho provato ad attivare quell opzione "Microsoft DAO 3.x Object Library" nei riferimenti ma mi da errore dicendo "Nome gia utilizzato per modulo,progetto o libreria degli oggetti esistenti"
E di fatto non me lo fa selezionare



EDIT:ho notato che comunque nella stringa str finiscono correttamente tutte le mail risultato della query,inoltre mettendo il campo email tra apici

strMail = strMail & rs("Email") & ";"

l errore si sposta piu in basso all ultima riga

FollowHyperlink "mailto:" & strMail

dicendomi errore di runtime 87 errore imprevisto

EDIT 2: Se il numero di email è piccolo,il sistema funziona,il problema sorge quando il numero di mail diventa grande diciamo di 80 email...bè in quel caso da l errore di runtime imprevisto,e ho notato che nella msgbox di prova,il risultato della query non è completo e l ultima mail è troncata a meta'

Private Sub Comando14_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMail As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT Contatti.Email FROM Contatti WHERE (((Contatti.Esclusione)=0));")
If rs.RecordCount = 0 Then
MsgBox "nessun record trovato"
Exit Sub
End If
While Not rs.EOF
strMail = strMail & rs(Email) & ";"
rs.MoveNext
Wend
'MsgBox strMail
Set rs = Nothing
FollowHyperlink "mailto:" & strMail

End Sub