Kas
15Bu derste sık kullanılan Cdonts Mail Bileşeni ile mail göndermeyi inceleyeceğiz.
<html>
<head>
<title>Message</title>
' Coding By Thomas Keatings
' All components of this website are subject to copyright
' For permission and advice on using this code contact admin@neonred.co.uk
<style type="text/css">
<!--
.style1 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</head>
<body>
<form method="POST" action="send_mail.asp">
<table width="427" border="1" align="center" cellpadding="3" cellspacing="0" bordercolor="#990000">
<tr bordercolor="#CC0000" bgcolor="#990000">
<td colspan="2"><div align="center"><span class="style5 style1 style1">Contact Form </span></div></td>
</tr>
<tr bordercolor="#990000" bgcolor="#FFFFCE">
<td width="150"><div align="right"><span class="style4">Your Name:</span></div></td>
<td width="259"><input name="txtName" type="text" id="txtName" size="35"></td>
</tr>
<tr bordercolor="#990000" bgcolor="#FFFFCE">
<td><div align="right"><span class="style4">Your Email Address:</span></div></td>
<td><input name="txtEmail" type="text" id="txtEmail" size="35"></td>
</tr>
<tr bordercolor="#990000" bgcolor="#FFFFCE">
<td><div align="right"><span class="style4">Reason you are contacting me: </span></div></td>
<td><select name="lstReason" id="lstReason">
<option>Regarding this Website</option>
<option>Feedback</option>
<option>Other</option>
</select></td>
</tr>
<tr bordercolor="#990000" bgcolor="#FFFFCE">
<td><div align="right"><span class="style4">Comment:</span></div></td>
<td><textarea name="txfComments" cols="35" rows="6" id="txfComments"></textarea></td>
</tr>
<tr bordercolor="#990000" bgcolor="#FFFFCE">
<td colspan="2"><div align="center"><font face="Verdana" size="1"><br>
Please double check for spelling errors before submitting your details. <br>
<br>
<input type="submit" name="Submit" value="Submit Form">
<input type="reset" name="Submit2" value="Reset Form">
</font></div></td>
</tr>
</table>
</form>
</body>
</html>
<!---send_mail.asp kodları--->
<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
' Coding By Thomas Keatings
' All components of this website are subject to copyright
' For permission and advice on using this code contact admin@neonred.co.uk
DIM strName, strEmail, strReason, strComments, Mailer
strName = request.form("txtName")
strEmail =request.form("txtEmail")
strReason =request.form("lstReason")
strComments =request.form("txfComments")
Set Mailer =Server.CreateObject("CDONTS.NewMail")
Mailer.From = strEmail
Mailer.Subject ="Enter The Subject of the email here"
Mailer.To ="you@yourdomain.co.uk"
Mailer.BodyFormat=0
Mailer.MailFormat=0
Mailer.Body = "This is an email generated by your online form." &"<br>" &"<br>" & _
"<b>Name: </b>" & strName &"<br>" & _
"<b>Email Address: </b>" &strEmail &"<br>" & _
"<b>Reson For Contacting: </b>" &strReason &"<br>" & _
"<b>Comments: </b>" &strComments &"<br>"
Mailer.Send
Set Mailer = nothing
%>
<P>
<%
strName = request.form("txtName")
Response.Write strName
%>,</P>
<P>Your message has been successfully sent.</P>
Etiketler : cdonts response write bodyformat mail subject from createobject cdonts.newmail
İçeriği takip etSayfayı YazdırPermalink3 yorum var
#415.-Cannur Daşkıran-20 Kasım 2007 Salı
Hocam ben yazdım ama Sayfa Görüntülenemiyor diyor. Hiç değiştirmedim bir de bunun için veri tabanı hazırlamak gerekiyormu? (Not: ben bunu somee.com da denedim) Teşekkürler, eğer adrese gitmek isterseniz; http://www.a.somee.com/iletisim.asp saygılar.
#417.-hakan-20 Kasım 2007 Salı
Merhaba, sunucumuzun desteklediği mail bileşenini bilmeniz gerekiyor. O hatayı verme sebebi, somee.com sunucularının cdonts mail bileşenini desteklemiyor olmasıdır.
Bu konuyla ilgili sitede ve forumda konular var onları inceleyebilirsiniz. Kolay gelsin.
#482.-blacksword-02 Şubat 2008 Cumartesi
sunucum jmaili desteklediği için aspjmail kullanıyorum. formdan alıyorum ama benim istediğim vertabanında yer alan ayarlar tablosundaki site mailini aşağıdaki kime= kısmına yazdırmak istiyorum. çünkü admin panelinde kişi sitenin mailini yazacak ben onu kime = "info@deneme.com " mail yerine yazdırtmak istoyorum. yani database açacak tablo ve ilgili alan adından alacak. yardım ve göreüşleriniz için şimdiden teşekkürler.
<%
kime = "info@deneme.com "
gonderen =request.form("gonderen")
konu = request.form("konu")
mesaj = request.form("mesaj")
Set Mail = Server.CreateOBjEct("JMail.Message")
Mail.Logging = True
Mail.Silent = True
Mail.From = gonderen
Mail.FromName = "iletism Formu"
Mail.AddRecipient kime
Mail.Subject = konu
Mail.Body = mesaj
Mail.Send "denem.com"
Set Mail = Nothing
Response.write (" ")
%>