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