invio mail

[digitm]

Ho usato questo script per l'invio di una mail... ma non va.....


SET VarMail=server.createobject("cdonts.newmail")
VarMail.from= "info@sito.it"
VarMail.to= "miamail@mail.it"
VarMail.subject="Iscrizione su sito.it"
VarMail.body="Ciao"
VarMail.BodyFormat = 0
VarMail.MailFormat = 0
VarMail.send
SET VarMail = NOTHING

mi da:


Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/login/minvio.asp, line 1

800401f3

[floyd46]

Originariamente inviato da digitm
Ho usato questo script per l'invio di una mail... ma non va.....


SET VarMail=server.createobject("cdonts.newmail")
VarMail.from= "info@sito.it"
VarMail.to= "miamail@mail.it"
VarMail.subject="Iscrizione su sito.it"
VarMail.body="Ciao"
VarMail.BodyFormat = 0
VarMail.MailFormat = 0
VarMail.send
SET VarMail = NOTHING

mi da:


Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/login/minvio.asp, line 1

800401f3

ciao
hai l' oggetto "CDONTS.dll" installato?

altrimenti il server non può crearlo.
fammi sapere, altrimenti te lo invio tramite mail.

[digitm]

lo script sta su aruba che credo lo supporti... o no?

[digitm]

Ho sostituito con uno script trovato sul forum:

<%
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")

miaMail.From = "marconavarria@yahoo.it"
miaMail.To = "marci@navarriabros.it"
miaMail.Subject = "Oggetto della mail"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0
miaMail.Body = "Testo della mail"
miaMail.Send

Set miaMail = Nothing
%>


e mi da:


Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CDONTS.NewMail'

/login/invio.asp, line 3

[floyd46]

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CDONTS.NewMail'
************************************************** ********

ciao

mi sa che dovresti informarti allora presso qualche amministratore di sistema;
io non conosco aruba, non ho lì il mio sito;
il problema è che non può creare l' oggetto CDONTS, nonostante sia corretto il codice.

ciauz

[digitm]

ho dato uno squardo su aruba... Ho preso questo script (che riprende i dati di un precedente form) e lo posto. A me non serve nessun riferimento al form... chi gli da una pulitina?



<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
invioA = "linkbruttocane@aruba.it"
invioDa = "linkbruttocane@technet.it"

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & "
" & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Iscrizione"
.HTMLBody = "<font face=verdana size=2>Testo
"
.Send
End With
%>

[Pinuga]

Aruba non supporta CDONTS, ma CDOSYS, ossia l'ultimo codice che hai copiato qui.
Non ti posso dare una mano con una pulitina perchè.. non funziona nemmeno a me