"Geleceğe atılan doğru bir adım..."
Bilgi Eğitim Bilgisayar Kursu Ders Notları

Web Tasarım Kursu - Asp ile Email Gönderme Kodları

<%

On Error Resume Next

For Each Doldur In Request.Form

Message = Message & Doldur & ": " & Request.Form(Doldur) & CHR(10)

Next

 

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "mail.btbilgisayarkursu.com"

Mail.Username = "info@btbilgisayarkursu.com"

Mail.Password = "şifre yaz"

Mail.From = "info@btbilgisayarkursu.com"

Mail.FromName = " Web Form "

Mail.AddAddress "info@btbilgisayarkursu.com", "info@btbilgisayarkursu.com"

Mail.AddReplyTo "info@btbilgisayarkursu.com"

Mail.Subject = "Mobilya Sipariş Formu"

Mail.Body = Message

Mail.Send

If ERR Then

                Response.Write err.Description & "<br>Formunuz gönderilemedi. Daha sonra tekrar deneyiniz."

Else

                Response.Write "<br>Sipariş formunuz başarı ile gönderildi."

End If

Set Mail=Nothing

%>