Ho fatto una mailing list con i cdonts,
ma non riesco ad inviare a tutti l'email?
Ricevo l'avviso di Notifica Stato recapito (non riuscita) senza spiegazioni..
Qualcuno sa spiegarmi le cause oltre ad un indirizzo email sbagliato?
Scusate
Ho fatto una mailing list con i cdonts,
ma non riesco ad inviare a tutti l'email?
Ricevo l'avviso di Notifica Stato recapito (non riuscita) senza spiegazioni..
Qualcuno sa spiegarmi le cause oltre ad un indirizzo email sbagliato?
Scusate
Sicura che l'oggetto sia installato sul tuo server?
si si anche perchè alcune riesco ad inviarle, ma ho un 1/5
delle 600 email che non vengono spedite..
L'email è in formato HTML potrebbe dare problemi?
l'invio è fatto con un ciclo for e vengono spedite una ad una..
forse il server di posta ha delle impostazioni che rifiutano alcuni indirizzi...
Cioè??
non c'è un modo per saperlo??
Come l hai fatto il ciclo? concateni in bcc ?Originariamente inviato da lindiz
si si anche perchè alcune riesco ad inviarle, ma ho un 1/5
delle 600 email che non vengono spedite..
L'email è in formato HTML potrebbe dare problemi
l'invio è fatto con un ciclo for e vengono spedite una ad una
Posta qualche riga, please!
<%
'1)RECUPERO L'INCLUDE DELLA CONNESSIONE
'-1a Creo L'oggetto connessione
Set oconn=Server.CreateObject("ADODB.Connection")
oconn.ConnectionString=conn
'2)recupero i testi dal database
mi servono per il testo messaggio non riguarda l'invio '
- 2a seleziono tabella dal db e creo recordset
sql2="Select * from news where Id_mensile = 1 "
Set rs2=Server.CreateObject("ADODB.Recordset")
oconn.open
rs2.open sql2, oconn ,3,3
' - 2b recupero tutti i campi testo del mensile
titolo=rs2("titolo")
testo=rs2("testo")
introduzione=rs2("introduzione")
sottotitolo= rs2("sottotitolo")
mese= rs2("mese")
publicita= rs2("publicita")
spamming= rs2("spamming")
rs2.close
set rs2 = nothing
oconn.close
'3)CREO RECORSET PER RECUPERARE GLI INDIRIZZI EMAIL dalla tab anagrafica
sql="Select * from anagrafica "
Set rs=Server.CreateObject("ADODB.Recordset")
oconn.open
rs.open sql, oconn ,3,3
'recupero tutte le e-mail fino alla fine del recorset
Do while not rs.EOF
email=trim (rs("email"))
'verifico se l'e-mail c'è o no
if email<>"" then
Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")
poi c'è il testo email(qui solo 2 rige)
HTML ="<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' "
HTML = HTML & "'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>"
HTML = HTML & "<body><table cellspacing='0' cellpadding='0' border='0' width='75%' align='center'><tr>"
'response.write (HTML)
'response.end()
myMail.From="pippo@pippo.it"
myMail.To=email
myMail.Subject="Mensile Esse News n°0"
'0 sta per il formato html
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set myMail=nothing
rs.movenext
else
rs.movenext
end if
Loop
rs.close
set rs=nothing
%>
Spezza l'invio in pacchetti più piccoli, tipo 50 email alla volta.
ok ci provo a spezzare l'invio..
Come l hai fatto tu è incorretto.. tu sendi una mail per ogni record.. invece ti basterebbe una mail unica e fare un ciclo concatenando tutti gli indirizzi nel campo bcc dell oggetto mail..codice:do until rs.eof x = x + 1 if x = 1 then bcc = rs("indirizzo") else bcc = bcc & "; " & rs("indirizzo") end if rs.moveNext loop myMail.bcc = bcc
Altrimenti il server ha dei grossi problemi di memoria!
ola
Permessi di invio
Rispondi quotando