Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Asp - Php - Cgi - Perl 
Asp"De Cdonts Ve JMAİL Mail Bileşeni İle Mail Göndermek Asp"De Cdonts Ve JMAİL Mail Bileşeni İle Mail Göndermek
-
sürekli sorulan bi konu.Önce serverda cdonts yüklü olması lazım arkadaşlar bu olay için.Server başka bir mail bileşeni kullanıyorsa onada bakabiliriz.
--------
<!---form sayfası kodları--->
<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
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>
----------------------------------
Jmail Bileşeni İçin ;
----------------
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 (" ")
-------------------------
tabi bunu bi form yapıp get yada post methodlarıyla da yapabilirsniz
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla