Salve a tutti ragazzi, utilizzo il metodo CDO su Aruba per inviare email dal sito.
Praticamente lo script funziona benissimo, mi invia le email a tutti però si blocca una volta finito e non procede con le altre azioni... mi da il seguente errore:
CDO.Message.1 error '8004020c'
At least one recipient is required, but none were found.
/invia_preventivo.asp, line 64
Lo script è il seguente
' APRE LA CONNESSIONE AL DATABASE E PRELEVA LE EMAIL DELLA NEWSLETTER
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQLmail = "SELECT email FROM tbl_aziende"
RecSet.Open SQLmail, Conn, adOpenStatic, adLockOptimistic
IF not RecSet.Eof then
' INDIRIZZO EMAIL NOSTRO
mittente = "info@lamiaemail.it"
Do until Recset.eof
' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
destinatario = RecSet("email")
' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
testo = "Nuovo preventivo in attesa di essere visionato. Accedi alla tua area riservata per vederne i relativi dettagli"
' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
oggetto = "Nuova richiesta di preventivo da parte di" & nome
' INVIA IL MESSAGGIO
Set email = CreateObject("CDO.message")
email.From = mittente
email.To = destinatario
email.Subject = oggetto
' FORMATO EMAIL
email.HTMLBody = testo
email.TextBody = testo
' INVIA L'EMAIL E..
email.Send (QUI MI DA ERRORE)
' PASSA AVANTI...
RecSet.Movenext
loop
End If
RecSet.Close
Set email = nothing
Ripeto lo script funziona, mi invia le email ma mi da quell'errore e non procede con le altre azioni da compiere
Rispondi quotando
