problema con CDONT per invio email!!!

[dommy79]

Ragazzi sto gestendo l'invio automatico di email da un form.
In pratica sul form si inserisce un indirizzo email e poi quando si clikka su Submit parte un'email in automatico.
Questo l'errore che viene fuori:

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/memscheda.asp, line 104
800401f3

Nel file sulla linea 104 ho:
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

In particolare la funzione incriminata è:
Function sendemail(stremail)
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "Campioni Auto Sas"
objCDOMail.To = stremail
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
End Function

Da cosa dipende?
AIUTATEMI!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[maximum]

Che il server non supporti CDONTS?
E' un server 2003?

[dommy79]

Ci avevo pensato anche io, il server è su aruba, ho provato a curiosare sul sito ma non ho trovato alcuna specifica.
Mi consigli eventualmente di usare CDOSYS?
Non l'ho mai utilizzato, puoi darmi qualche consiglio?

ciao

[Roby_72]

Cerca nel forum, trovi tutto.

Roby

[maximum]

Aruba si appoggia a server 2003, quindi CDOSYS.

[Vincent.Zeno]

Originariamente inviato da maximum
Aruba si appoggia a server 2003, quindi CDOSYS.

Vero, ma anche 2000 se hai un sito già da qualche tempo!

[maximum]

Giusto!
Bisogna vedere da quanto tempo è attivo il sito.

[dommy79]

Il sito è attivo da circa due mesi, quindi penso che ci sia server 2003. Ora cerco sul forum qualcosa riguardo CDOSYS, ma devo inserire anche le configurazioni del server di posta di aruba con CDOSYS?

Grazie

[Roby_72]

Si anche se puoi usare una cosa del tipo...

	Set iMsg = CreateObject("CDO.Message")
	Set iConf = CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields
	Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
	
	'Corpo
	HTML = "Pippo, pippo"

	'INVIO MAIL AL WEBMASTER
	myMail = "email@email.it

	With iMsg
	Set .Configuration = iConf
	.From = myMail
	.To = myMail
	.Subject = oggetto
	.TextBody = HTML
	.Send
	end with
	set Flds = Nothing
	set iConf = Nothing
	set iMsg = Nothing

Roby

[dommy79]

Grazie Roby
allora provo come mi hai suggerito e poi ti faccio sapere.

Ciao
Dommy