Enviar emails CCO desde Access

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?