Adjuntar objeto de tabla en correo electrónico

Tengo una tabla en cual cual tengo un objeto adjunto. En este caso se tratan de archivos de tipo word pdf y necesito encontrar la forma de adjuntarlos a un correo. Este correo además genera un informe que también debería estar incluido en el mismo correo.

La tabla se aprecia de esta forma en su modo diseño

el correo con el informe ya lo tengo y se genera con el siguiente codigo.

Private Sub Enviar_Click()
On Error Resume Next
If (Not IsNull(Unidos) Or Unidos <> "") Then
DoCmd. SendObject acReport, "Seguimiento de Circuito de Aprobacion Revisores", "PDFFormat(*.pdf)", Me. Email destinatarios1, "Email Destinatarios copia", "", Email destinatarios1, "Pongo bajo vuestro conocimiento que he cumplido con el requerimiento del SGD donde he sido incluido dentro del circuito de Revisiones/Aprobaciones del documento de referencia. ", True, ""

Aqui quisiera poder agregar el archivo PDF o Word que se encuentre incluido en la consulta que incluya dicha tabla.

Añade tu respuesta

Haz clic para o