Asp Ile Mail Göndermek

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
%>