Come ti accennavo devi scorrere il recordset e concatenare le mail in una stringa che passerai poi al metodo FollowHyperlink. Dall'editor vba di access da Strumenti => Riferimenti, aggiungi quello relativo a "Microsoft DAO 3.x Object Library".
Per quel che riguarda l'ultimo carattere, cioè l'ultimo ";", ho visto che outlook lo rimuove già per conto suo e a dire il vero mi hai anche fatto sorgere il dubbio. Probabile che la mail venga inviata anche con quell'ultimo carattere.codice:Option Compare Database Option Explicit Private Sub cmdApriPosta_Click() Dim db As DAO.DataBase Dim rs As DAO.Recordset Dim strMail As String Set db = CurrentDb() Set rs = db.OpenRecordSet("select campo_mail from tabella") If rs.RecordCount = 0 Then MsgBox "nessun record trovato" Exit Sub End If While Not rs.EOF strMail = strMail & rs("campo_mail") & ";" rs.MoveNext Wend 'MsgBox strMail Set rs = Nothing FollowHyperlink "mailto:" & strMail End Sub![]()

Rispondi quotando