I have a database with over 5000 contacts and I wisht to add a checkbox field which employees can check and uncheck as they please to determine who will be the recipients of a single, mass email. Sounds simple enough and one would assume the sql qould go something along the lines of:

Set r = CurrentDb.OpenRecordset("SELECT Email FROM FranksFinanceBrokers WHERE SendEmail = True")

And yet this doesn't seem to be working!

Furthermore, I tried a code supplied by someone else except "Error 3265: item not found in this collection" keeps popping up, highlighting the If Not IsNull line and the following two lines. Here is my code thus far:

Private Sub Send_to_Selected_Click()

Dim r As Recordset
Dim Email As String
Set r = CurrentDb.OpenRecordset("SELECT Email FROM FranksFinanceBrokers WHERE SendEmail = True")

Do While Not r.EOF
If Not IsNull(r("Email")) _
And r("Email") <> "" _
And r("SendEmail") <> True Then
Email = Email & r("Email") & ";"
End If
r.MoveNext
Loop


End Sub

Where am I going wrong??