Bir çok forumda sorulan ve hala yanitini bulamayanlar için
Kod:
<%
'Created By MTDesign - [email protected]
'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
%>