|
REHBERLER ANASAYFA
Bu rehber içerisinde 3 adet popüler e-posta bileşeninin kullanımıyla ilgili
bilgileri size vereceğiz. Kırmızı ile belirttiğimiz alanları kendi sunucu
bilgilerinize göre düzenlemeniz gerekmektedir.
Cdonts:
Cdonts çalıştırılması en kolay eposta bileşenlerinden
biridir.Sunucunuz Cdonts’u destekliyorsa, sorun çekmeden bu bileşeni
kullanmanız mümkün.
form.html:
<html>
<body bgcolor="#FFFFFF">
<form method=post action="gonder.asp">
Adınız : <input type="text" name="ad"><br>
E-mail adresiniz : <input type="text" name="email"><br>
Mesajınız : <textarea name="mesaj" rows="" cols=""></textarea><br>
<input type="submit" value="gonder">
</form>
</body>
</html>
gonder.asp:
<%
ad=trim(Request.form("ad")) 'form dan alınan ad
email=Request.Form("email") 'form dan alynan e-mail
adresi
mesaj=Request.Form("mesaj")’form dan alınan mesaj
Set Email = Server.CreateObject("CDONTS.NewMail")
Email.From="[email protected]"
'gonderenin adresi
Email.to="[email protected]"
’mailın size ulaşmasını bu satır saglayacak
Email.Subject=Konu
Email.Body=mesaj ‘mailin
icerigi
Email.send ’maili yollama komutu
‘Bu ikisinden birini seçmek size kalmış.
response.redirect "http://www.domainadi.com/yollandi.asp"
‘response.write "form gönderildi"
%>
Jmail:
form.html:
<html>
<body bgcolor="#FFFFFF">
<form method=post action="gonder.asp">
Adınız : <input type="text" name="ad"><br>
E-mail adresiniz : <input type="text" name="email"><br>
Mesajınız : <textarea name="mesaj" rows="" cols=""></textarea><br>
<input type="submit" value="gonder">
</form>
</body>
</html>
gonder.asp:
<%
adi=trim(Request.form("ad")) 'form dan alınan isim
email=Request.Form("email") 'form dan alynan adres
mesaj=Request.Form("mesaj") ‘ form dan alınan mesaj
Set email = Server.CreateObject("JMail.Message")
email.ContentType = "text/html"
email.Charset = "ISO-8859-9"
email.AddRecipient email
email.from = “[email protected]”
‘ mailı yollayacak olan adres
email.fromname = "Yollayanın adı: "&ad
&” "
email.MailServerUserName = “[email protected]”
‘ buraya e-posta sunucunuzun kullanıcı adını girmelisiniz.
email.MailServerPassWord = "sifreniz"
‘ buraya kullandığınız e-posta adresinin şifresini girmelisiniz.
email.Subject = "Mailın konusu”
email.body = mesaj
email.Send("mail.domainadi.com")
if err then
response.Write err.Description & "<br>Form
gönderilemedi."
Else
‘Bu ikisinden birini seçmek size kalmış.
Response.Redirect
"http://www.domainadi.com/yollandi.asp"
‘response.write "form gönderildi"
end if
set email = Nothing
%>
Persits:
form.html:
<html>
<body bgcolor="#FFFFFF">
<form method=post action="gonder.asp">
Adınız : <input type="text" name="ad"><br>
E-mail adresiniz : <input type="text" name="email"><br>
Mesajınız : <textarea name="mesaj" rows="" cols=""></textarea><br>
<input type="submit" value="gonder">
</form>
</body>
</html>
gonder.asp:
<%
adi=trim(Request.form("ad")) 'form dan alynan isim
email=Request.Form("email") 'form dan alynan adres
mesaj=Request.Form("mesaj") ‘ form dan alınan mesaj
kimegidicek = email ' E-postanın yollanacağı
adres
Set email = Server.Createobject("Persits.MailSender")
email.Host = "mail.domainadi.com" ' ' e-posta
yollanırken hangi email sunucusu kullanılacak
email.From ="[email protected]"
' gönderenin mail adresi
email.FromName = ad ' gönderenin adı
email.AddAddress kimegidicek ' gidecek adres..
email.AddReplyTo kimegidicek ' karşılık
yazılacak adres
email.Subject =konu
email.Body = mesaj
email.Send
‘Bu ikisinden birini seçmek size kalmış.
response.redirect
"http://www.domainadi.com/yollandi.asp"
‘response.write "form gönderildi"
' açtığın nesneyi kapa...
Set email = Nothing
' bitti
%> |
