Form Mail
Örnek:
<html>
<head>
<title> MAIL GONDER </title>
</head>
<body>
<form method=post action="mail.asp">
Isim : <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>
CDO YLE MAIL YOLLAMA
En yaygin mail gonderme bilesenidir
mail.asp (CDO ile)
<%
' formdan içerik al
isim = Request.form("isim")
mail = Request.form("mail")
konu = Request.form("konu")
mesaj = Request.form("mesaj")
' mektup kime gidecek abisi
kime = "admin@site-adi.com"
' bir CDO Newmail nesne ornegi yarat
Set mektup = Server.CreateObject("CDONTS.NewMail")
' çok açik, geleneksel atamalar
mektup.From = isim & " <" & mail & ">"
mektup.To = kime
mektup.Subject = konu
mektup.Body = mesaj
' hata olursa mizikçilik yapmadan devam et
on error resume next
' ve sadede geldik.
mektup.Send
' hata olusursa
If err <> 0 Then
hata = err.description
Response.Write "hata oldu: " & hata
Else ' is temizse
tebrik = "Mailiniz yollady"
Response.Write tebrik
End If
' açtigin nesneyi kapa...
Set mektup = Nothing
' bitti
%>
JMAIL ILE MAIL YOLLAMA
mail.asp (JMAIL ile )
<%
' formdan içerik al
isim = Request.form("isim")
mail = Request.form("mail")
konu = Request.form("konu")
mesaj = Request.form("mesaj")
' mektup kime gidecek abisi...
kime = "admin@site-adi.com"
' bir JMail SMTPMail nesnesi...
Set mektup = Server.CreateObject("JMail.SMTPMail")
' SMTP sunucusu
mektup.ServerAddress = "mail.Server.here"
' gonderen
mektup.Sender = isim & " <" & mail & ">"
' konu
mektup.Subject = konu
' aliciyi belirle
mektup.AddRecipient = kime
mektup.Body = mesaj
On Error Resume Next
mektup.Execute
' hata varsa
If err <> 0 Then
hata = err.description
Response.Write "hata oldu: " & hata
Else ' is temizse
tebrik = "mailiniz yollady"
Response.Write tebrik
End If
Set mektup = Nothing
%>
