Eyl
20Bu dersimizde Jmail bileşeni ile maillist yapımınına değineceğiz.
Mail göndermenin çeşitli yolları vardır.
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.
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.)
Böylece veritabanımızdaki maillerin hepsine sırayla aynı mesajı göndermiş olduk.
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
%>
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
%>
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.
0 yorum var
İçeriğe henüz yorum yazılmamış, ilk yorumu yazmak için aşağıdaki formu doldurabilirsin.
