Deneme imkanım olmadığından aşağıdaki kodları deneyemedim. Siz bir deneyin isterseniz.

    On Error GoTo Hata

    Dim Rapor_Adi As String, Dosya_Adi As Variant

    Rapor_Adi = "Buraya Raporın Adını Yazınız"

    Dosya_Adi = InputBox("Dosya Adını Yazın.", "Dosya Adı", "Dosya Adı")

    DoCmd.SendObject acSendReport, Rapor_Adi, acFormatXLS, MAIL_ADRESI, , , "Konu", , , Dosya_Adi

    MsgBox "Mail gönderildi", vbInformation, "Rapor"

Devam:

    Exit Sub

Hata:

    MsgBox "Mail gönderilemedi", vbCritical, "Rapor"

    Resume Devam