JMAIL ILE MAIL YOLLAMA

<%
' 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 yolladı"
Response.Write tebrik
End If
Set mektup = Nothing
%>