Access - Enviar un informe por correo electronico

Estoy intentando enviar por correo electronico un informe. Para ello utilizo docem.sendobject. En algun os sistemas funciona bien. En otros no funiona nunca.
¿Hay alguna otra forma de hacerlo que funcione siempre?

Teneis una web magnifica. Un saludo

Si es desde Access, este procedimiento funciona correctamente:

Dim stDocName, Destinatario As String
Dim stAppName As String
Dim RetVal As String

Destinatario = "[email protected]"

stDocName = "PQM-TrabajosMensual"

stAppName = "C:\Archivos de programa\Outlook Express\msimn.exe"
Call Shell(stAppName, 6)

DoCmd.SendObject acSendReport, stDocName, acFormatRTF, Destinatario, , , TMensual, TMensual, True 'False

Para que funcione debe estar instalado Outlook aunque use Outlook Express.

Te aclaro que el formulario va en formato .RTF (texto enriquecido), puedes hacerlo en WORD o en EXCEL.