<%
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.sunucuadi.com"
Mail.Username = "info@sunucuadi.com"
Mail.Password = "12345"
Mail.Subject = "Mailin konusu"
Mail.AddAddress GonderilecekAdres, GonderilecekAdres
Mail.AddReplyTo GonderilecekAdres
Mail.IsHTML = TRUE
Mail.Body = "Gonderilecek mesaj içeriği"
Mail.Send
if err <> 0 then
response.write("Hata oluştu: "& Err.Description)
else
response.write("Mail Gönderildi.")
end if
%>

Yukarıdaki kodumuzda.

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

Persits.MailSender degiskenine "Mail"i atadık. Bu kodumuzun hemen üstüne On Error Resume Next komutunu yazıyoruz ki herhangi bir hata var ise devam et demek oluyor.
Mail.Host kısmına mail sunucumuzu yazıyoruz bu varsayılan olarak mail.siteadi.com'dır eğer böyle oldugu halde hata veriyor ise lütfen sunucu saglayıcınızla görüşünüz.
Mail.Username kısmına ise maili hangi mail adresinden göndermek istiyorsak o mail adresini yazıyoruz.
Mail.Password ise mail adresimizin şifresini yazıyoruz.
Mail.Subject kısmıda mail in başlıgı yanı konusudur.
Mail.AddAddress kısmınada kime göndericeksek o kişinin mail adresini yazıyoruz.
Mail.IsHTML isede mailin içeriğinde html kodları kullanıcaksak bu kodumuzuda ekliyoruz.
Mail.Body kısmıda mailin içeriğidir. son olarakda maili göndermek için Mail.Send diyoruz.
ve hata meydana gelirse veya maili gönderme işlemi hatasız yapılırsa bunu ekrana yazdırmak içinde;
if error<>0 then
response.write("Hata oluştu: "& error.description)
else
response.write("Mail Gönderildi.")
end if
kullanıyoruz. if else döngüsü ilede herhangi bir hata varsa error.description ile bu hatayı yazdırıyoruz. Herhangi bir hata yok isede ekrana mail gönderildi yazıdırıyoruz.
Şimdi bazı arkadaşlar yazıcaktır. Mail ile mailin şifresini neden yazıyoruz diye. Hemen cevaplıyım. Bazı sunucularda sahte mail adresi ile mail göndermesini engellemek için kimlik doğrulama kullanılır. Sunucuda eger öyle bir mail adresi yok ise hata meydana gelicektir. Bu hatatı engellemek için kimlik dogrulaması yaptırmamıza yarıyor.

Hepinize kolay gelsin :)