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 = "[Linkleri kayitli üyeler görebilir. Kayit olmak için Tıklayin...]"
Jmail.MailServerUserName = "Kullanıcı adım([Linkleri kayitli üyeler görebilir. Kayit olmak için Tıklayin...])"
Jmail.MailServerPassWord = "sifrem(şifre)"
Jmail.Subject = "Maillist"
Jmail.AddRecipient "[Linkleri kayitli üyeler görebilir. Kayit olmak için Tıklayin...]"
Jmail.Body = "Maillist yapımı gönderilecek mesaj"
Jmail.Send("mail.domain.com")
Jmail.close
%>

Böylece kendi mail´imizden "[Linkleri kayitli üyeler görebilir. Kayit olmak için Tıklayin...]" 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 = "[Linkleri kayitli üyeler görebilir. Kayit olmak için Tıklayin...]"
Jmail.MailServerUserName = "Kullanıcı adım([Linkleri kayitli üyeler görebilir. Kayit olmak için Tıklayin...])"
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.