Dim stTo As String
    Dim stCc As String
    Dim stBcc As String
    Dim stSubject As String
    Dim stMesajText As String
    Dim EditMesage As Variant
 
 
msg = "Çalışma Tarih Aralığı: " & Me.BaslamaTarihi & " - " & Me.BitisTarihi & vbCrLf _
& "Çalışma Saatleri: " & Me.v1 
 
 
    stTo = mailadres 'Göndereceğiniz e-mail adresi"
    stCc = "mail@mail.com"
    stSubject = "Bildirim"
    stMesajText = msg
    EditMesage = -1 
 
    DoCmd.SendObject , , , stTo, stCc, , stSubject, stMesajText, EditMesage '""""