Sending Mail from Access to BCC: recipients

Public Sub SendMail()
'Provides the Send Mail automation
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSubject As String
Dim strEmailAddress As String
Dim strEMailMsg As String
Dim ingCounter As Integer
Dim intCount As Integer

strSubject = [cmdSubject]
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("qryEmailOut")


rst.MoveFirst
Do Until rst.EOF
    
    strEmailAddress = rst![email address]
    strEMailMsg = rst![First Name] & " " & rst![Surname] _
    & " - "

    'EMAIL USER DETAILS & ATT REPORT
    DoCmd.SendObject , , acFormatRTF, strEmailAddress, _
    , , strSubject, strEMailMsg, False, False
    

    rst.MoveNext
Loop
rst.Close
Set rst = Nothing
dbs.Close
Set dbs = Nothing