WEB TASARIM KURSU : ASP İLE EMAİL GÖNDERME KODLARI

<%

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 & "
Formunuz gönderilemedi. Daha sonra tekrar deneyiniz."

Else

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

End If

Set Mail=Nothing

%>

Telefon
Whatsapp