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.
Kod:
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