ASP ile Mail Gönderme
İlk Önce form içeren bir HTML belgesi üretmemiz lazım. Dosyayı üretip adına da ne diyelim? Form.html Şekil1 : Form.html PHP- Kodu:
<html>
<head>
<title> SİTE ŞERİFİNE MAİL GÖNDER </title>
</head>
<body bgcolor="#FFFFFF">
<form method=post action="yolla.asp">
İsim : <input type="text" name="isim"><br>
Mail : <input type="text" name="mail"><br>
Konu : <input type="text" name="konu"><br>
Mesaj : <textarea name="mesaj" rows="" cols=""></textarea><br>
<input type="submit" value="yolla">
</form>
</body>
</html>
Belgenin tarayıcıda görünümünden siz sorumlusunuz tabi ki. Burada “ estetik bir form tasarlayalım da karizmayı titretmeyelim” kaygısı taşımadığımızı belirtelim. Örneğimizde önemli olan işlevdir. Formdaki elemanların kimlikleri (name) de dikkat edeceğimiz noktadır.
İnşa edilen bu formu dolduran ziyaretçi, olağan şartlarda çevrede bir “ submit” düğmesi bulup tıklayacaktır. Ve tarayıcı tetiklenip formun “ action” özelliğinde belirtilen “ Yolla.asp” ye koşacak. Bu, yolla.asp diye bir ASP komut dosyası yazacağımız anlamına geliyor. Yolla.asp yi yazarken bir mail bileşen örneği yaratıp, belirli komutları kullanarak mail gönderme işlemini tesis edeceğiz. Şekil2 : Yolla.asp PHP- Kodu:
<%
Function mailgonder(kimden_isim, kimden_mail, kime, konu, mesaj)
Set mektup = Server.Createobject("CDONTS.NewMail")
mektup.From = isim & " <" & mail & ">"
mektup.To = kime
mektup.Subject = konu
mektup.Body = mesaj
on error resume Next
mektup.Send
If err <> 0 Then
mailgonder = False
Else
mailgonder = True
End If
Set mektup = Nothing
End Function
%>
ve son olarak başka işlerin arasında mail gönderme ihtiyacımızın doğduğu bir deneme.asp farzedelim. deneme.asp içerisinde bu fonksiyonu kullana parametreleri gönderip çalıştıracağız. Ancak önce bu fonksiyonu içeren mailf.asp dosyasını, sayfamıza " include" (dahil) etmemiz lazım ki fonksiyon sayfamız hudutları içerisinde çağrılabilir olsun .
Şekil3 : deneme.asp PHP- Kodu:
<!--#INCLUDE FILE="mailf.asp"-->
<%
' ------
' başka işler
' ------
' ....
gonderildi = mailgonder(isim, mail, kime, konu, mesaj)
If gonderildi Then
Response.Write "maili yolladık"
Else
Response.Write "hata oluştu, maili yollayamadık"
End If
' ------
' başka işler
' ------
' ....
%>
İşte bu kadar. Bu ASP'yi artık kullanabilirsiniz. | 