Ciao a tutti,
Io devo inviare email ad una mailing list di 1500 utenti inseriti in un DB.
Utilizzo CDONTS e non posso inviare usando .bcc perkè ogni singola email deve contenere l'ID di ki la riceve...
Il problema è ke dopo un pò mi da un'errore interno del server...
Le email arrivano ma tutte doppie (e sinceramente non so se arrivano a gli ultimi indirizzi presenti nel DB)...
Ecco il codice:
'Invio Email
if Request("Corpo")<>"" then
Server.ScriptTimeout = 90
if Request("Allegato")<>"" then
Allegato=Request("Allegato")
end if
MailFrom="sundaemilk@heprecords.com"
Oggetto=Request("Oggetto")
Corpo2=Request("Corpo")
sql="select * from MList"
RS.open sql,Conn,1
do while not RS.eof
Corpo=Corpo2 & Per cancellarti dalla mailing list fai click sul link qui sotto:
http://<a href="http://www.miosito.c..."IDMList") & ")"
InviaMail(RS("Email"))
RS.movenext
loop
RS.close
end if
response.write("Mail inviata con successo")
function InviaMail(tempEmail)
dim objMail
set objMail=server.createobject("CDONTS.NewMail")
objMail.From=MailFrom
objMail.To=tempEmail
objMail.Subject=Oggetto
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.importance=1
if Allegato<>"" then
objMail.AttachFile server.mappath(Allegato)
end if
objMail.Body=Corpo
objMail.Send
set objMail=nothing
end function
Rispondi quotando
