+- 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 Pdf Olarak Mail Atmak. (/konu-raporu-pdf-olarak-mail-atmak.html)
RE: Raporu Pdf Olarak Mail Atmak. - hegu - 21/04/2021
Sayın Atoykan ekteki hatayı verdi.
RE: Raporu Pdf Olarak Mail Atmak. - atoykan - 21/04/2021
Dosya yolunuz hatalı c:\pdf benim örnek için kullandığım yol, siz ' ile by-pass ettiğiniz üstteki kodda yer alan dosya yolunu kullanın
RE: Raporu Pdf Olarak Mail Atmak. - hegu - 21/04/2021
Sayın atoykan haklısınız dediğiniz gibi yol yazdım bu sefer ekteki hatayı verdi.
RE: Raporu Pdf Olarak Mail Atmak. - atoykan - 21/04/2021
Ekli dosyada kodlarda to, subject ve body'yi düzenleyip dener misiniz?
RE: Raporu Pdf Olarak Mail Atmak. - hegu - 22/04/2021
Sayın atoykan yine üsteki resmini eklediğim hatayı verdi.
RE: Raporu Pdf Olarak Mail Atmak. - atoykan - 22/04/2021
Kodu aşağıdaki ile değiştirip dener misiniz lütfen?
Private Sub Report_DblClick(Cancel As Integer)
Dim RptName, FilePath As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
RptName = [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"
FilePath = "C:\Users\Hegu\OneDrive\Masaüstü\Emirsan\Teklifler\"
DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, FilePath & RptName
MsgBox "PDF Aktarımı Tamamlandı", vbInformation, "Report Exported as PDF"
If Len(Dir(RptName)) > 0 Then
Kill RptName
End If
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = "BURAYA ALICININ E-MAIL ADRESİ YAZILACAK"
.Subject = "BURAYA KONU YAZILACAK"
.HTMLBody = "E-MAIL METNİNİZ YAZILACAK"
.Attachments.Add FilePath & RptName
.Send
End With
MsgBox "Mail Gönderildi", vbInformation, "Report Sent as PDF"
End Sub