Mail til gruppe fra Access

Den kommer til at se nogenlunde sådan her ud. Du kan selv tilpasse SQL-strengen til din tabel:

Private Sub Kommandoknap0_Click()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim varOutput As Variant
Dim strQuery As String
Dim strEmail As String

Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset

    strQuery = "SELECT email FROM tabel1 WHERE bestyrelse = -1"
    rst.Open strQuery, cnn, adOpenStatic, adLockReadOnly, adCmdText
If rst.RecordCount > 0 Then
    varOutput = rst.GetString(, , , "; ")
    strEmail = "mailto:" & varOutput
    Application.FollowHyperlink strEmail
Else
    MsgBox "Der findes ingen bestyrelsesmedlemmer", vbExclamation, "Ingen bestyrelsesmedlemmer"
End If

rst.Close
cnn.Close
End Sub

Præcis som den skulle virke, mange tak!  :o)