Hi Lyns
I've tested it for you and this works, it takes the contents of your table tblcontacts and adds this to the email as an attachment (I realise this is not the desired attachment) it;s just an example of how to use the sendobject , all you need to do is change the file type and what you want to attach.
like this:
Private Sub CmdEmail_Click()
Dim rsEmail As DAO.Recordset
Dim strEmail As String
Set rsEmail = CurrentDb.OpenRecordset("QueryName")
Do While Not rsEmail.EOF
strEmail = rsEmail.Fields("Email").Value
DoCmd.SendObject acSendTable, "tblcontacts", acFormatXLS, _
strEmail, , , "Subject", "Advert" & vbCrLf & vbCrLf & "Message", False
rsEmail.MoveNext
Loop
Set rsEmail = Nothing
MsgBox "Emails have been sent"
End Sub