Biz ilk önce hangi bileşeni kullanarak mail göndereceğimizi belirlemeliyiz. Bunu yaparken sunucumuzun desteklediği mail bileşenini kullanmanızı öneririm. Ben en çok kullanılan bileşenlerden biri olan Jmail bileşenini kullanacağım. Bunun dışında CDOSys Persits AspEmail Cdonts gibi email bileşenleri bulunmaktadır.

<%
Set Jmail = Server.Createobject("JMail.Message") ´nesneyi tanımlıyoruz
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´imizden "birisi@mail.com" a "Maillist yapımı gönderilecek mesaj" mesajını yollamış olduk.

Şimdi bunu veritabanımızdan aldığımız bütün isimlere sırayla gönderme koduna çevirelim.

Mesela veritabanımızdaki mailleri "mail" alanı farzedelim. (Aşağıdaki kodu yazmadan önce veritabanı bağlantısı yapmanız gerekir.)

<%
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
%>

Böylece veritabanımızdaki maillerin hepsine sırayla aynı mesajı göndermiş olduk.