Mail yolla

[LincolnSamet]

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