Public Sub Komut15_Click()
    Dim oApp As New Outlook.Application
    Dim oemail As Outlook.MailItem
    Dim fileName As String, todaydate As String
    
    
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
        Set db = CurrentDb
    Set rs = db.Openrecordset("SELECT Ad, Soyad, Email, Limit, Adres FROM Musteriler Sorgu")
    
    Do Until rs.EOF
    
    On Error Resume Next
    DoCmd.GoToRecord , , acNext
    
  
    
        'Raporu müşteri bazında olması için düzenliyoruz
    
         DoCmd.OpenReport "MusteriRaporu", acViewReport, "", "[Forms]![MusteriFormu]![Ad]=[Musteriler]![Ad]", acNormal
    
    
        'Raporu pdf file olarak dışa aktarıyoruz
        todaydate = Format(Date, "DDMMYYYY")
        fileName = Application.CurrentProject.Path & "\MusteriRaporu_" & todaydate & ".pdf"
        DoCmd.OutputTo acReport, "MusteriRaporu", acFormatPDF, fileName, False
    
    
    
        Set oemail = oApp.CreateItem(olMailItem)
        oemail.To = rs.Fields("Email")
        oemail.Subject = Me.Firma_Adı & " Bakiye Raporu"
        oemail.Body = "Bakiye raporunuz ektedir."
        oemail.Attachments.Add fileName

        
        With oemail
            If Not oemail.To <> Me.Email Then
                .Send
                MsgBox "Email Gonderildi"
        
            Else
                MsgBox "Mail adresi hatalı!"
            
            End If
        
        End With
     rs.MoveNext
   
    On Error Resume Next
    DoCmd.GoToRecord , , acNext

    Loop
        
    
    rs.Close

    Set rs = Nothing
    Set db = Nothing
  

  
End Sub

DoCmd.Close acReport, "MusteriRaporu", acSavePrompt