[ASP] Invio email CDONTS.NewMail

[marco.santilli]

Ho una pagina, con la quale invio una email

Mi da un errore quando invio l'email

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/send.asp, line 141

800401f3


Se vado a vedere la riga di tale pagina è la sequente:

Set objMail = Server.CreateObject("CDONTS.NewMail")

Qui sotto vi riporto il vodice con la quale invio l'email, mi sembra che è tutto corretto perchè l'ho presa da un sito.

------------------------
<%
Set cn = Server.CreateObject("ADODB.Connection")
%><%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing ORDER BY Email"
rs.Open strSQL,cn
tipo=request("Tipo")
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
if tipo="html" then
do while not rs.eof
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From=mittente
objMail.To=rs("Email")
objMail.Subject=oggetto
objMail.Body=email
objMail.Send
Set objMail = nothing
rs.movenext
loop
else
do while not rs.eof
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 1
objMail.MailFormat = 1
objMail.From=mittente
objMail.To=rs("Email")
objMail.Subject=oggetto
objMail.Body=email
objMail.Send
Set objMail = nothing
rs.movenext
loop
end if
set cn = nothing
set rs = nothing
%>
--------------------------------

Da cosa può dipendere????

Dal server che ospita il sito????

Ciao e grazieeeeee

[Dirk Pitt]

CDONTS è installato sul server?
Verifica sfruttando questo thread http://forum.html.it/forum/showthrea...79#post9362179

[marco.santilli]

Grande codice

Ho creato il mio server.asp

lo messo nel sito e l'ho lanciato

Infatti risulta

CDONTS [Non Installato]
CDOSYS [Installato]

Infatti prima di metterlo su questo server avevo provato il codice in un altro server

Adesso ho fatto il controllo del server dove lo avevo provato:

CDONTS [Installato]
CDOSYS [Installato]

Ecco perchè li mi funzionava


Tornando al nostro server

Ho il CDONTS non installato....come faccio per inviare l'email, mi potresti corregge il codice

Ciao e grazieeeee

[Dirk Pitt]

Set myMail = CreateObject("CDO.Message")
myMail.Subject = "soggetto_email"
myMail.From = "tua_email@email.com"
myMail.To = "email_dest@email.com"
myMail.Bcc =
myMail.Cc =
myMail.TextBody = "tutto il testo che vuoi"
myMail.Send

Set myMail = Nothing

Oppure segui l'esempio (ma è più lungo, io non lo uso mai ): http://asp.html.it/script/vedi/1025/...il-con-cdosys/

[marco.santilli]

Ok ho creato il tutto

L'ho messo nel sito e provato

Non è andato in errore, quindi il codice l'ha accettato


Sono passati 20 min e ancora non mi è arrivato nulla è giusto????


Mi sembra che ci metta un pò troppo

Ciao e grazieeeeeeee

[Dirk Pitt]

Beh quello dipende dal server, non dal codice.

[marco.santilli]

Niente da fare

L'email inviata non mi è mai arrivata

[Dirk Pitt]

Posta il codice.

[marco.santilli]

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing ORDER BY Email"
rs.Open strSQL,cn
tipo=request("Tipo")
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
if tipo="html" then
do while not rs.eof
Set myMail = CreateObject("CDO.message")
'myMail.BodyFormat = 0
'myMail.MailFormat = 0
myMail.From=mittente
myMail.To=rs("Email")
myMail.Subject=oggetto
myMail.Send
Set myMail = nothing
rs.movenext

'Set objMail = Server.CreateObject("CDONTS.NewMail")
'objMail.BodyFormat = 0
'objMail.MailFormat = 0
'objMail.From=mittente
'objMail.To=rs("Email")
'objMail.Subject=oggetto
'objMail.Body=email
'objMail.Send
'Set objMail = nothing
'rs.movenext


loop
else
do while not rs.eof
Set myMail = CreateObject("CDO.message")
'myMail.BodyFormat = 1
'myMail.MailFormat = 1
myMail.From=mittente
myMail.To=rs("Email")
myMail.Subject=oggetto
myMail.Send
Set objMail = nothing
rs.movenext
loop
end if
set cn = nothing
set rs = nothing

[U235]

anche ammettendo che il cod. sia giusto (ho dato un occhiata rapida e mi pare di si)
se stati eseguendo il server con una connessione tipica "da casa" devi tenere la connessione attiva a lungo (ammesso che non sia finito per qualche oscura ragione in una black list, in questo caso non arriverà mai) perchè i server di posta che ricevono il tuo messaggio danno priorità alle connessioni e server proffessionali (accreditati) respingendo il tuo messaggio finche non c'è una situazione di basso traffico, ecco perchè devi tenere la connessione, devi fare in modo che continui ad inoltrarla finchè non viene accettata dal server di posta (esempio libero se l'hai inviata a nome@libero.it).


Quando tempo fa (circa 3 anni fa!) feci una prova da casa, dovetti aspettare circa 8 ore...