Programalama > ASP

Etiketler: cdonts, mail, bileseni, mail, yollama

Ort. 0
Puan ver:
<%
'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
%>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.