Access - código para enviar informes por correo

Trabajo con access 2003

envio un informe por correo de forma automática con el siguiente código:

Function Enviar()
On Error GoTo Enviar_Err

DoCmd.SendObject acReport, "Nombre del informe", "FormatoSnapshot(*.snp)", "", "", "", "", "", True, ""

Enviar_Exit:
Exit Function

Enviar_Err:
MsgBox Error$
Resume Enviar_Exit

End Function

pues resulta que necesito usar esta función con cualquier informe que esté abierto y tenga el foco por supuesto porque hasta ahora solo funciona con "Nombre del informe"

sl2 y gracias

Encontré una respuesta:

Function Enviar()
On Error GoTo Enviar_Err

Dim report_name As Report
Set report_name = Screen.ActiveReport

DoCmd.SendObject acReport, report_name.name, "FormatoSnapshot(*.snp)", "", "", "", report_name.name, report_name.name, True, ""

Enviar_Exit:
Exit Function

Enviar_Err:
msgbox Error$
Resume Enviar_Exit

End Function

y luego quiero ejecutar el código desde una barra de herramientas que sea común para todos los informes, pues creo una macro que sea ejecutarcódigo y me pide el nombre de la función y ahi se lo paso.( Enviar( ) ). luego pongo esta macro en una barra de herramientas

sl2 y gracias