Private Sub Report_DblClick(Cancel As Integer)

Dim RptName, FilePath, MailAdr As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem

MailAdr = [Forms]![MUSTERILER2]![MAIL].Value
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 = MailAdr
        .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