Ciao a tutti. Sto imparando da poco ad usare l'ASP. Ho difficoltà ad inviare e-mail tramite i form, sia usando CDONTS e sia usando CDOSYS.Pertanto vi faccio vedere che tipo di errori ricevo usando CDONTS e CDOSYS.

<%
Dim MyBody
Dim MyCDONTSMail
%>

<%
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "somebody@nowhere.com"
MyCDONTSMail.To= "miaemail"
MyCDONTSMail.Subject="This is a Test"
MyBody = "Thank you for ordering that stuff" & vbCrLf
MyBody = MyBody & "We appreciate your business" & vbCrLf
MyBody = MyBody & "Your stuff will arrive within 7 business days"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>

Errore di run-time di Microsoft VBScript error '800a01ad'

Il componente ActiveX non può creare l'oggetto

/prove/email1.asp, riga 24

La riga 24 corrisponde a MyCDONTSMail.Send.

-----------------------------------------------
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="miaemail"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

CDO.Message.1 error '80040220'

Il valore di configurazione "SendUsing" non è valido.

/prove/email.asp, riga 16

La riga 16 corrisponde a myMail.Send
-----------------------------------------------------------

Inoltre vi posso assicura che CDONTS e CDOSYS sono installati nella macchina (CDONTS l'ho installato correttamente in un secondo momento). Come sistema operativo utilizzo Vista Home Premium e quindi come server locale ho IIS7 che tral'altro ho notato che al suo interno non esiste un SMTP Server. Se la causa di quei miei errori è la mancanza di un SMTP Server sulla mia macchina come sopperire al problema? Per favore aiutatemi! :-D Vi ringrazio anticipatamente per il vostro aiuto!

---

Modificato da pinnuzzo il 20 gennaio 2009 12.33 -

Ti ringrazio per avermi risposto daniele. Tra un pò provo subito lo script che mi hai indicato tramite link e ti faccio sapere.. Grazie ancora.. Ti saluto

Ti faccio vedere di preciso cosa ho fatto:

<%

Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Fields.Item("cdoSendUsingPort") = 25
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tiscali.it"
Fields.Update

Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config

objMail.To = "xxxxx@hotmail.it"
objMail.From = "xxxxx@tiscali.it"
objMail.Subject = "Prova messaggio"
objMail.TextBody = "Con CDO 2.0 in Windows 2000 server"
objMail.Send

set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing
%>

Mi da il seguente errore:

error '80040211'

/prove/email.asp, riga 26 = ObhMail.Send

---

Modificato da pinnuzzo il 23 gennaio 2009 21.59 -