+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: raporu mail atma (/konu-raporu-mail-atma.html)
raporu mail atma - eagle28 - 19/07/2013
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
Cvp: raporu mail atma - maytas - 19/07/2013
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
Cvp: raporu mail atma - eagle28 - 22/07/2013
teşekkürler ilginize fakat
örneğe uygulaya bilen olursa daha iyi anlayabileceğim
hayırlı günler
Cvp: raporu mail atma - maytas - 22/07/2013
(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.
Cvp: raporu mail atma - eagle28 - 23/07/2013
teşekkürler yardımlarınız için