ASP Hazır kodlar
Jmail Mail Bileşeni ile Mail Göndermek
Bu derste sık kullanılan Jmail Mail Bileşeni ile mail göndermeyi inceleyeceğiz.
Bu derste örneğe dayalı bir şekilde mail göndermekten bahsedeceğiz.
İki adet asp dosyamız olacak bunlar;
Form.asp: Bu sayfa form elemanlarını içerir. Bu elemanlar Gönderenin Adı, Gönderenin mail adresi, Gönderenin mesajı
Gonder.asp: Bu sayfa ise form.asp den gelen verileri tutarak gönderme işlemini yapacaktır.
Form.asp kodları
Email formumuzu hazırlamış olduk. şimdi gonder.asp ile bilgilerimizi mail adresine gönderelim.
Gonder.asp kodları
Böylelikle formdaki bilgileri "[email protected]" adresine iletmiş olduk.
kaynak : http://www.aspogren.net/kaynak-oku/119/jmail-mail-bileşeni-ile-mail-gondermek.html
Bu derste sık kullanılan Jmail Mail Bileşeni ile mail göndermeyi inceleyeceğiz.
Bu derste örneğe dayalı bir şekilde mail göndermekten bahsedeceğiz.
İki adet asp dosyamız olacak bunlar;
Form.asp: Bu sayfa form elemanlarını içerir. Bu elemanlar Gönderenin Adı, Gönderenin mail adresi, Gönderenin mesajı
Gonder.asp: Bu sayfa ise form.asp den gelen verileri tutarak gönderme işlemini yapacaktır.
Form.asp kodları
Kod:
<html>
<head>
<title>Form</title>
</head>
<body>
<form method="POST" action="gonder.asp">
Adınız : <input type="text" name="isim" size="20"><br>
Mail Başlık : <input type="text" name="baslik" size="20"><br>
Mail Adresiniz : <input type="text" name="email" size="20"><br>
Mesajıınız : <textarea rows="2" name="mesaj" cols="20"></textarea><br>
<input type="submit" value="Submit" name="cmd">
</form>
</body>
</html>Email formumuzu hazırlamış olduk. şimdi gonder.asp ile bilgilerimizi mail adresine gönderelim.
Gonder.asp kodları
Kod:
<%
isim = request.form("isim")
baslik = request.form("baslik")
email = request.form("email")
mesaj = request.form("mesaj")
On Error Resume Next
Set objJmail = Server.Createobject("JMail.Message")
objJmail.Charset = "ISO-8859-9" 'mail charset kodu
objJmail.From = email
objJmail.MailServerUserName = "[email protected]" 'mail kullanıcı adınız
objJmail.MailServerPassWord = "sifre" 'mail şifreniz
objJmail.Subject = baslik
objJmail.AddRecipient "[email protected]" 'gönderilecek adres
objJmail.Body = mesaj
objJmail.Send("mail.domain.com")
Set objJmail = Nothing
%>
<html>
<head>
<title>Mail Gönderildi</title>
</head>
<body>
Bu mail [email protected] adresine gönderilmiştir. Tebrikler !!!
</body>
</html>Böylelikle formdaki bilgileri "[email protected]" adresine iletmiş olduk.
kaynak : http://www.aspogren.net/kaynak-oku/119/jmail-mail-bileşeni-ile-mail-gondermek.html
Madem öyle bende paylaşımcı olayım ve bir paylaşım yapayım. Ama kodları burada vermeyeyim kodlar büyük. Size Rastgele sayı oluşturma scriptimi tanıtayım. Adresten scriptimi bulabilirsiniz ...
http://www.evrimaltay.net/random
http://www.evrimaltay.net/random