Kod:
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