Mail List yapımı ( Asp )

FurkanAltunok · 01.05.08, 23:59

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Msn Live Plus!Mail 1.1	ibiramcan	MSN Messenger	2	11.03.08 18:04
Yahoo! 7 Mail	kralex	Teknoloji Haberleri	0	11.02.08 02:00
E-mail Hurafeciliği	NyMpH	İslamiyet	4	24.08.07 01:30
yanlış mail	gizems	Fıkralar	17	22.07.07 11:08
Bounce Spam Mail	SЧSTЄM	PC-Program	0	18.06.07 15:47

01.05.08, 23:59	#1
FurkanAltunok	Mail List yapımı ( Asp ) 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.