Mail List Yapımı

Bu konuda Maillist yapımını öğreneceğiz.

ılk önce hangi bileşeni kullanarak mail göndereceğimiz önemlidir.
Ben en çok kullanılan bileşen olan Jmail bileşenini kullanacağım.
Tabi böylelikle dışarı mail atmış oluyoruz.Bunu mail adresimize giriş yapmadan yapamayız.

Mail kodumuz aşağıdaki gibi olacak.

<%
Set Jmail = Server.Createobject("JMail.Message")

Jmail.Charset = "ISO-8859-9"
Jmail.From = "mail@domain.com"
Jmail.MailServerUserName = "Kullanıcı adım(mail@domain.com)"
Jmail.MailServerPassWord = "sifrem(şifre)"
Jmail.Subject = "Maillist"

Jmail.AddRecipient "birisi@mail.com"
Jmail.Body = "Maillist yapımı gönderilecek mesaj"
Jmail.Send("mail.domain.com")

Jmail.Close
%>

Böylece kendi mail'ımızdan "birisi@mail.com" a "Maillist yapımı gönderilecek mesaj" mesajını yollamış olduk.

şimdi bunu vertabanımızdan aldığımız bütün isimlere sırayla gönderme koduna çevirelim.
Mesela veritabanımızdaki mailları "mail" alanı farzedelim.

<%

On Error Resume Next

Do While Not rs.eof

Set Jmail = Server.Createobject("JMail.Message")

Jmail.Charset = "ISO-8859-9"
Jmail.From = "mail@domain.com"
Jmail.MailServerUserName = "Kullanıcı adım(mail@domain.com)"
Jmail.MailServerPassWord = "sifrem(şifre)"
Jmail.Subject = "Maillist"

Jmail.AddRecipient rs("mail")
Jmail.Body = "Maillist yapımı gönderilecek mesaj"
Jmail.Send("mail.domain.com")

rs.movenext
Loop

Jmail.Close
%>