Murat TATAR God saves lost souls , I save lost passwords

7Nis/110

Mail Hazırlama-CDO ile mail yollama

Form Mail
Örnek:



MAIL GONDER

Isim :
Mail :
Konu :
Mesaj :



CDO İLE MAIL YOLLAMA
En yaygın mail gonderme bileşenidir

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 yolladı"
Response.Write tebrik
End If
' açtigin nesneyi kapa...
Set mektup = Nothing
' bitti
%>

   
Copy Protected by Chetan's WP-Copyprotect.