Invio Email

[drzoidberg]

Invio Email

Ho una pagina ASP che mi invia una mail a degli indirizzi e-mail che sono memorizzati in un DB.
Però mi da il seguente problema

Source line: email.From = mittente
Description: Necessario oggetto: 'email'

Copio il pezzo di codice relativo al problema:

' INDIRIZZO EMAIL NOSTRO
mittente = "[email protected]"
Do until Recset.eof
' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
destinatario = RecSet("email")
' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
testo = Request.Form("testo")
' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
oggetto = Request.Form("oggetto")
' INVIA IL MESSAGGIO
Set email = Server.CreateObject("CDONTS.NewMail")
email.From = mittente
email.To = destinatario
email.Subject = oggetto

Spero che qualcuno mi aiuti!!

P.S.
la pagina ASP l'ho provata con Babyweb !!!

[madai]

posta il codice fino al termine del ciclo

[cantoniere]

@madai said:

posta il codice fino al termine del ciclo

Probabilmente manca un

Set email = nothing
dopo email.Send

ma se posti il codice vediamo meglio

[drzoidberg]

ecco tutto il codice

' APRE LA CONNESSIONE AL DATABASE E PRELEVA LE EMAIL DELLA NEWSLETTER
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Email_Newsletter"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
IF not RecSet.Eof then
' INDIRIZZO EMAIL NOSTRO
mittente = "[email protected]"
Do until Recset.eof
' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
destinatario = RecSet("email")
' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
testo = Request.Form("testo")
' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
oggetto = Request.Form("oggetto")
' INVIA IL MESSAGGIO
Set email = Server.CreateObject("CDONTS.NewMail")
email.From = mittente
email.To = destinatario
email.Subject = oggetto
' FORMATO EMAIL
email.BodyFormat = 1
email.MailFormat = 1
email.Body = testo
' INVIA L'EMAIL E..
email.Send
Set email = nothing
' PASSA AVANTI...
RecSet.Movenext
loop
End If
RecSet.Close
Conn.close
Set RecSet = Nothing
Set Conn = Nothing
' VISUALIZZA UN MESSAGGIO DI CONFERMA:
%>
<hr>
<p align="center"><font face="Verdana" size="4"><b>Messaggio inviati
correttamente!</b></font></p>
<hr>
<%
Else
%>
<hr>
<p align="center"><font face="Verdana" size="4"><b>Compila tutti i
campi!</b></font></p>
<hr>
<%
End IF
Else
%>

[artcava]

Scusa la banalità, ma sei sicuro che sul server in cui ci sono le tue pagine siano installate le librerie CDONTS?

[drzoidberg]

veramente le mie pagine nn sono su un server...ma le sto provando in locale con Babyweb!

[cali1981]

@DrZoidberg said:

veramente le mie pagine nn sono su un server...ma le sto provando in locale con Babyweb!
E in locale le hai?