Mailllist yapımı

Mailllist 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 nextdo while not rs.eofSet 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.movenextloopJmail.close%>Böylece veritabanımızdaki mailların hepsine sırayla aynı mesajı göndermiş olduk.

Döküman Arama

Başlık :

Kapat