Hayırlı günler arkadaşlar. Atoykan hocam raporda çift tıklama moduyla pdf ye çeviriyor. Bu raporu pdf olarak nasıl mail atabilirim. Mailin uzantısı ne olursa olsun göndersin. Hotmail , gmail gibi.
teşekkür ederim.

Private Sub Report_DblClick(Cancel As Integer)
DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, "C:\PDF\" & [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"
MsgBox "PDF Aktarımı Tamamlandı", vbInformation, "Report Exported as PDF"
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim RptName As String
RptName = [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"
If Len(Dir(RptName)) > 0 Then
Kill RptName
End If
DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, RptName
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 RptName
.Send
End With
MsgBox "Mail Gönderildi", vbInformation, "Report Sent as PDF"
End Sub
(21/04/2021, 18:54)atoykan yazdı: Merhaba Sayın @hegu
Fikir vermesi açısından basit bir şekilde aşağıdaki kodu uygulayabilirsiniz.
Raporunuzun çift tıklanma olayına yazılan kodu aşağıdaki ile değiştirin
Private Sub Report_DblClick(Cancel As Integer)
DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, "C:\PDF\" & [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"
MsgBox "PDF Aktarımı Tamamlandı", vbInformation, "Report Exported as PDF"
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim RptName As String
RptName = [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"
If Len(Dir(RptName)) > 0 Then
Kill RptName
End If
DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, RptName
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 RptName
.Send
End With
MsgBox "Mail Gönderildi", vbInformation, "Report Sent as PDF"
End Sub
to kısmına göndermek istediğiniz mail adresini, subject kısmına mailinizin konusunu, HTMLbody kısmına yazmak istediğiniz mesajı yazın. Çift tıkladığınızda Outlook üzerinden mailinizi gönderecektir. Mail adreslerini, konu ve mesaj içeriklerini sağlayacağınız tablo ve form tasarımı yaparsanız her seferinde kodlara müdahale edip değiştirmek yerine ilgili alanlar kodlarda kullanılarak mail göndermeyi sağlayacak bir tasarım üzerinde çalışabilirsiniz.