arkadaşlar persist bileşeni ile bir
mail list yazdım, ve tüm maillere aynı anda aynı mesajı gönderebiliyorum , ama
server ın fazla yorulmaması için maillerin 5 saniyede bir gitmesini istiyorum, yani birinci sıradakine
mail gidecek , 5 saniye sonra 2. sıradakine geçecek gibi.
kodları da vereyim.
do while not rs2.eof
maillist = rs2("mail")
Dim mail
Set mail = server.CreateObject("Persits.MailSender")
mail.Host = "webmail.domain.com"
mail.From = ""&gondericimail&""
mail.Username = ""&gondericimail&""
mail.Password = "sifrem"
mail.FromName = ""&gonderici&""
mail.AddAddress maillist
mail.Subject = ""&baslik&""
mail.IsHTML = True
mail.Body = ""&detay&""
mail.Send
rs2.movenext
loop
If err Then
Response.Write err.Description & "<br>Mesajınız Gönderilmedi.."
Else
Response.Write("teşekkürler" )
End If
set mail = nothing
gönderim başarılı kodlarda bi
sorun yok benim gördüğüm kadarıyla , onlarda hatam varsa onlara da baqabiirsiniz
