Enviar emails desde Access CCO

Estoy implementando el envío automático de emails desde Access.

Por el momento he conseguido esto:

Private Sub NOMCTROL_Click()

Dim rst As dao.Recordset
Dim NOMCTROLAs String

Set rst = CurrentDb.OpenRecordset("Select email from EMAILING")

While Not rst.EOF
NOMCTROL= NOMCTROL& rst!email & ";"
rst.MoveNext
Wend

'Esto es por si quieres quitar el ; que quedara al final
If Nz(NOMCTROL, "") <> "" Then
NOMCTROL= Left(NOMCTROL, Len(NOMCTROL) - 1)
End If

DoCmd.SendObject , , , , NOMCTROL

End Sub

¿Alguien me puede indicar qué me falta para que los emails se sitúen en el campo CCO?