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