Hola, he encontrado este código en un post de Guarracuco, en el tema "Envio Email con destinatario variable"
El problema que tengo al emplear este código es que al recibir el email enviado por CDO se visualiza el códido html, no el report bien formateado. Copio el post de Guarracuco:
"Un método que me sirvió por varios años, fué el de exportar el reporte a HTML; abrirlo, copiar su contenido; pegar este contenido en el body(CDO).
1)ABre un reporte oculto
DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
2)Lo exportas a formato HTML:
archivo = "c:\siscond\adjuntos\webtemp.HTML"
DoCmd.OutputTo acOutputReport, stDocName, acFormatHTML, archivo, False
3)Lo abres y copias el contenido HTML:
NúmeroArchivo = FreeFile
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(archivo)
Set ts = f.OpenAsTextStream(1, -2)
s = ts.readall
ts.Close
La variable s contiene todo el código html del archivo. La asignas al body del objeto CDO y en el cuerpo del correo se mostrará la tabla.
Si se trata de enviar muchos es un poco lento.
pd: en la parte superior del procedimiento o form, declara
Dim NúmeroArchivo
Dim fs, f, ts"