|
||
| Editor Login | Register | ||
| > Akademik İnternet ® > ASP |
|
|
| 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 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 mailların hepsine sırayla aynı mesajı göndermiş olduk. |
|
| Bağlantılar: bilgininefendisi.net |
| Open Source Document Project | AUP&TOS |