Sub SendEmail(strFrom, strTo, strSubject, strBody)
' DB ve email sabitleri
Dim objCDOMail

' email aktif mi
If SEND_EMAIL Then

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

' obje özellikleri
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody

' mesajı yolla
objCDOMail.Send
Set objCDOMail = Nothing
End If
End Sub