On Error GoTo Err_cmdemail_Click

    Dim stDocName As String

    Dim stFormat As String

    Dim stFrom As String

    Dim stTo As String

    Dim stCc As String

    Dim stBcc As String

    Dim stSubject As String

    Dim stMesajText As String

    Dim EditMesage As Variant



stFormat = "PDF Format(*.pdf)"

stDocName = "Rpr_Perdesiparisfisi"

DoCmd.OpenReport stDocName, acViewPreview, , "[Sipno]=Forms![Frm_Perdesipariskarti]![Sipno]"



 

 If MsgBox("Sipari?iniz Haz?rland? Devam Etmek i?in Evet ?ptali ??in Hay?r? T?klay?n", vbYesNo, "Pars") = vbYes Then

    

    stFormat = "PDF Format(*.pdf)"    'Formun g?nderilece?i format zengin metin snapshot,excel vs

    stTo = Me.Mail1 'G?nderece?iniz e-mail adresi"

    stCc = Me.sipak

    stBcc = "ateslermefrusat@gmail.com"

    stSubject = "" 'e-mail ba?l???"

    stMesajText = "L?TFEN S?PAR??? ONAYLAYIN..."

    EditMesage = -1





DoCmd.OpenReport stDocName, acViewPreview, , "[Sipno]=Forms![Frm_Perdesipariskarti]![Sipno]"

DoCmd.SendObject acReport, "Rpr_Perdesiparisfisi", stFormat, stTo, stBcc, stSubject, stCc, stMesajText, EditMesage, """"

DoCmd.Close acForm, "Frm_Perdesipariskarti"

DoCmd.Close acReport, "Rpr_Perdesiparisfisi"

 Forms![Frm_Musterikarti]![sipliste].Requery



End If



Exit_cmdemail_Click:

    

    Exit Sub



Err_cmdemail_Click:

     MsgBox Err.Description

     DoCmd.Close acReport, "Rpr_Perdesiparisfisi"

     DoCmd.Close acForm, "Frm_Perdesipariskarti"

          DoCmd.OpenForm "Frm_Siparismenu"

     Resume Exit_cmdemail_Click

    



     Forms![Frm_Musterikarti]![sipliste].Requery