YakIsIkLI

ASP İLE MAİL GÖNDERMEK
Sitenize bir form mail ekleyerek ziyaretçilerinizin size mesaj yollamasını sağlayabilirsiniz.
Bunun için ilk önce bir forma ihtiyacınız var. Bu formda alacağınız bilgiler şunlar olmalıdır:
Gönderen mail, alıcı mail, başlık(konu), mesaj
Bunların yanında başka bilgiler de alabilirsiniz. İsim, yaş, nereli olduğu vb...
Şimdi formu yapalım.

<form method="POST" action="Email.asp">
Alıcı Mail: <input type="text" name="kime"/> <br />
Gönderen Mail: <input type="text" name="kimden"/> <br />
Başlık-Konu: <input type="text" name="konu"/> <br />
Mesaj: <textarea name="mesaj" rows="5" cols="20"></textarea>
<input type="submit" />
</form> Görüldüğü gibi form POST metoduna göre yapılmış. Yani bilgiler post ile alınacak. Bunun için kullanmamız gereken okuma fonksiyonu Request.Form("") olmalıdır.
Şimdi formdan gelecek bilgilerin değişkenlerini oluşturalım.
<%
Dim mail, kime, kimden, konu, mesaj
%>
Buradaki mail değişkeni fazlalıktır. Ama bu değişken bizim mail gönderebilmemiz için gerekli.
Şimdi bilgileri okuyalım.
<%
kime = Request.Form("kime")
kimden = Request.Form("kimden")
Konu = Request.Form("konu")
Mesaj = Request.Form("mesaj")
%>
mail değişkeni için okuma yapmıyoruz bize başka yerde lazım.
Bunda yazdırma işlemi farklı. Çünkü yazdırmayı maile yapacağız, sayfaya değil.
Maile göndermek için gereken kodları yazalım
<%
mail.To = kime
mail.From = kimden
mail.Subject = konu
mail.TextBody = mesaj
mail.Send()
%>
Ayrıca mail gönderebilmek için bize bazı farklı kodlar da gerekli. Bu mail gönderimi için hazır fonksiyondur.
Bu kodlarda şunlardır:
<%
Set mail = Server.CreateObject("CDO.Message")
%>
Şimdi kodların tümünü birleştirelim
<%
Dim mail, kime, kimden, konu, mesaj
Set mail = Server.CreateObject("CDO.Message")

kime = Request.Form("kime")
kimden = Request.Form("kimden")
konu = Request.Form("konu")
mesaj = Request.Form("mesaj")

mail.To = kime
mail.From = kimden
mail.Subject = konu
mail.TextBody = mesaj

mail.Send()

Response.Write("Mailiniz Gönderilmiştir. Teşekkür ederiz.İyi günler...")
Set mail = nothing
%>

__________________
22 Ekim 2008, Saat; 21:10, Çarşamba Günü, Girburaya.Net iLe iLişkimi Kesmiş Bulunmaktayım..