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