Sorunsuz ve ücretsiz asp mail form Server.CreateObject("JMail.Message" ) dili ile hazırlanmış bir script scriptteki secenekleri cogaltmak kolay sadece eklediğinzi
input type="text" name="Ad_Soyad" kısımlarını eklediğiniz secenekle yapınız (tr karekter ve boşluksuz)
hadi kolay gelsin bakalım.
form.asp
Kod:
<table border="1" cellpadding="3" cellspacing="3" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="44%" id="AutoNumber1" height="80">
<tr><form method="POST" action="gonder.asp">
<td width="21%" style="border-style:none; border-width:medium; " height="17">
<font size="2" face="Verdana">Adı Soyadı :</font></td>
<td width="79%" style="border-style:none; border-width:medium; " height="17">
<input type="text" name="Ad_Soyad" size="35"></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17">
<font size="2" face="Verdana">Mail :</font></td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<input type="text" name="Mail" size="35"></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17">
<font size="2" face="Verdana">Konu :</font></td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<select size="1" name="Konu">
<option>---- Konu Seciniz ----</option>
<option value="Bilgi Almak">Bilgi Almak</option>
<option value="Şikayet">Şikayet</option>
<option value="Reklam">Reklam</option>
</select></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17" valign="top">
<font size="2" face="Verdana">Mesajın :</font></td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<textarea rows="6" name="Mesaj" cols="35"></textarea></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium" height="17">
</td>
<td width="79%" style="border-style: none; border-width: medium" height="17">
<input type="submit" value="Gönder" name="B1">
<input type="reset" value="Sıfırla" name="B2"></p>
</form>
</td>
</tr>
</table>
--------------------------------------------------------------------------
gonder.asp
Kod:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
CONST infMailSunucu = "mail.site.com"
CONST infMailKullaniciAdi = "[email protected]"
CONST infMailSifre = "sifre"
CONST infMailYollayan = "[email protected]"
CONST alici_mail = "[email protected]"
CONST mailbasligi = "Bilgi Mesajı"
dim mesaj
mesaj = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9""></head><body>"
Dim bilgiler
For Each bilgiler In Request.Form
if bilgiler <> "Submit" then
mesaj = mesaj & "<b>" & bilgiler & " : </b> "
mesaj = mesaj & Request.Form(bilgiler) & "<br>"
end if
Next
mesaj = mesaj & "</body></html>"
SET objMail = Server.CreateObject("JMail.Message" )
With objMail
.ContentType = "text/html"
.CharSet = "ISO-8859-9"
.AddRecipient alici_mail
.From = infMailYollayan
.MailServerUserName = infMailKullaniciAdi
.MailServerPassWord = infMailSifre
.Logging = True
.Silent = True
.Subject = mailbasligi
.Body = mesaj
.Send(infMailSunucu)
End With
SET objMail = Nothing
response.write("Mesajınız Bize Ulaşmıştır. En Kısa zamanda cevap yazılacaktır..")
%>
gonder.asp de yapman geren degişiklikler
CONST infMailSunucu = "
mail.site.com"
CONST infMailKullaniciAdi = "
[email protected]"
CONST infMailSifre = "
sifre"
CONST infMailYollayan = "
[email protected]"
CONST alici_mail = "
[email protected]"
CONST mailbasligi = "
Bilgi Mesajı"