Enviar Correos a través de código extrayendo los valores de una consulta.

Les comento cual es mi idea para que me indiquen como hacerlo.

Tengo una consulta que me devuelve los siguientes valores en vista de hoja de datos:

OPE_CODIGOOPE_NOMBREBULTOS

403 FRANCIS ANSAH 1176

431 AMIR SAEED 1152

439 MOHAMMAD SHARIF 1195

441 PERCY ALBERTO ROJAS 1107

445 RASHED KHAN 1318

La idea es que por código extraer cada registro y enviarlo por correo.

A día de hoy lo que hago es crear un informe individual de cada registro y luego lo envio a través de este código:

Public Sub EmailMasivo(NombreInforme, destinatario, Asunto, Optional Cuerpo, Optional CC, Optional CCO)
DoCmd. SendObject acSendReport, NombreInforme, "PDF", destinatario, CC, CCO, Asunto, Cuerpo, False
End Sub

Private Sub Comando39_Click()
Dim NombreInforme As String
Dim destinatario As String
Dim CC As String
Dim Asunto As String
Dim Cuerpo As String
'FRANCIS
NombreInforme = "FRANCIS ANSAH"
destinatario = "xxxxxxxx"
CC = ""
CC0 = ""
Asunto = "productividad"
Cuerpo = "Se ruega informen en caso de no disponer de cualquiera de los productos solicitados."
EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo,, CC
Etc...

Pero este sistema no me gusta porque cada vez que hay un alta tengo que generar un informe, un nuevo comando et..