[escape_lea]

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.

PHP Code:

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

[oxigen]

araya bir döngü koyup, atıyorum 1000'e kadar sayıp öyle gönderim yapsam, for - next ile döngüyü kurabilirsin.
belki daha mantıklı bi çözüm gelir

[kuduk]

for next kötünün de kötüsü bir çözüm, işlemci gücü olarak belki 1000 kat daha pahalı bir iş yapmış olursun. bunun yerine multithread bir sınıf oluşturup bununla olayı çözebilirsin. threadi belirli bir süre uytup daha sonra uyandırabilirsin.
bir başka çözüm ise mail gönderdiklerini veri tabanında tutup her seferinde sadece bir kişiye göndermek (select top) ve bunu cron kullanarak 1 dakika gibi bir zamana set etmek.

bence 5 saniyelik bir gecikme seni herhangi bir gözlemleme uygulamasından korumayacaktır.

[escape_lea]

peki kuduk, şimdi bu dediklerinden birini yapayım da nasıl , yani benim ASP bilgim bu dediklerini yazmaya yetmez ??
help me

[burakozgur]

kullanıcı alanına "mail" adlı bir hucre ac. default olarak "0" yap. DB'yi where mail='0' ile aç ve mail gittikten sonra kullanıcının mail kısmını 1 ile update et. 5 saniyede 1 sayfayı yenilet. İstediğini yapmış olacaksın.

[Coder32]

Arkadaşım mailleri tek tek yollamak yerine adresleri BCC alanına yazarak sıkıntını çözebilirsin sanırım. Hem böylece gönderdiğin adreslerde birbirini göremez.
Eğer göndereceğin mail adresleri çok ise kayıtları for next döngüsü ile 50'şer olarak BCC ye ekleyebilirsin.
Ama böyle yapınca hangi maillere başarılı olarak gitmiş hangilerine gitmemiş anlayamazsın tabiki.

O halde kodunu şöyle değiştirmen gerekir.

Tüm posta kayıtlarını BCC alanına ekleyerek.

Dim PostaListesi

Do while not rs2.eof 
     PostaListesi = PostaListesi & ";" & maillist = rs2("mail")
rs2.movenext 
loop 

Dim mail 
Set mail = server.CreateObject("Persits.MailSender") 
mail.Host = "webmail.domain.com" 
mail.From = ""&gondericimail&"" 
mail.Username = ""&gondericimail&""  
mail.Password = "sifrem"
mail.IsHTML = True 

mail.FromName = ""&gonderici&"" 
mail.AddAddress gondericimail  'Kime kısmında kendi mailimiz gözüksün
mail.AddBCC = PostaListesi

mail.Subject = ""&baslik&"" 
mail.Body = ""&detay&"" 
mail.Send 

If err Then  
     Response.Write err.Description & "<br>Mesajınız Gönderilmedi.." 
Else  
     Response.Write("teşekkürler" ) 
End If 

set mail = nothing

[escape_lea]

coder32 dediğin gibi düzenledim kodları hata vermeye başladı :

hata :

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'AddBCC'