Cdonts mail bileseni mail yollama

[ejderha_26]

Cdonts mail bileseni mail yollama

Bir çok forumda sorulan ve hala yanitini bulamayanlar için

Kod:

<%

'Created By MTDesign - by_muslum@hotmail.com

'CDONTS MAIL SENDER



RESPONSE.BUFFER = TRUE



Dim objCDOMail

Dim strFrom, strTo

Dim strBody, strSubject



strFrom = Request.form("from")

strTo = request.form("to")

strBody = request.form("body")

strSubject = request.form("subject")



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

objCDOMail.From = str.From

objCDOMail.To = strTo

objCDOMail.Subject = strSubject

objCDOMail.MailFormat = 0 '(0:Text, 1:HTML, 2:Close HTML)

objCDOMail.BodyFormat = 0

objCDOMail.Body = strBody

objCDOMail.Importance = 1 '(1:Slow , 2:Normal, 3:Fast)

objCDOMail.Send

Set objCDOMail = nothing

%>