Enviar resultado de una consulta por email

[Neuron_376]

Seria lo mismo que mandar un e-mial normal, de lo que estas hablando es de una especie de reporte, entonces solo debes construirlo, algo como

email = email & "Nombre: " & Cstr(rs("Nombre"))

mail.message = email

mail.send

Espero haberme explicado, es decir, solamente contruyes el reporte segun la consulta y lo envias como cualquier e-mail.