raporu mail atma

slm arkadaşlar
Hazırladıgım raporu Excel formatına cevirip outlok dan mail atması
fakat rapor Excel cevrildiğinde dosya ismi raporun ismi oluyor
yapmak istedigim bu dosya ismini benim manuel olarak belirlediğim isim olması
yardımlarınızı bekliyorum

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

teşekkürler ilginize fakat
örneğe uygulaya bilen olursa daha iyi anlayabileceğim
hayırlı günler

(22/07/2013, 09:21)eagle28 yazdı: teşekkürler ilginize fakat
örneğe uygulaya bilen olursa daha iyi anlayabileceğim
hayırlı günler

İşyerinde deneyip sorunsuz çalışan örneği ekte bulabilirsiniz.

teşekkürler yardımlarınız için