Problema con CDOSYS

[djinn00]

ho un piccolo,ma molto probabilmente enorme,problema!
guardando sul sito del w3schools ho notato un'interessantissimo script sull'invio di email tramite pagine asp.
ho copiato e incollato lo script nella mia pagina e l'errore che ne risulta è questo:

"CDO.Message.1 (0x80040220)
Il valore di configurazione "SendUsing" non è valido. "

cosa vuol dire?
ho provato utilizzando CDOSYS ma anche con CDONTS non funziona..cosa potrebbe essere?
grazie per le vostre risposte

[ivanhalen]

posta tutto il codice ed assicurati che il server SMTP per l'invio della mail esista: al contrario di CDONTS, per CDOSYS DEVI specificare un server SMTP per l'invio

[djinn00]

dici che allora l'errore possa essere la mancanza del server SMTP?
visto che in questo momento non sto lavorando sul mio di computer sono molto sicuro che non possa controllarla.come faccio a controllare l'esistenza dell SMTP?
e quali sono le impostazioni?o più che altro dove posso trovarle?
questo è il codice della funzione
"
function invMail()
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="yoko_kurama666@yahoo.com"
myMail.To="a.maghini @yahoo.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
end function
"
grazie

[ivanhalen]

ehm... ma è tutto lì? dove hai preso quel codice? ad occhio e croce mi sembra un codice per CDONTS con CreateObject("CDO.Message"), che non va bene
Dove sono tutte le impostazioni relative alla configurazione? Deve essere più simile a questo:

Set MyMail = createobject("cdo.message")
	Set objConfig = createobject("cdo.configuration")
	Set Flds = objConfig.Fields
	Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serverSMTP"
	Flds.update
	Set MyMail.Configuration = objConfig
	MyMail.From = "mittente@sito.xxx"
	MyMail.To =  "destinatario@sito.yyy"
	MyMail.Subject = "Oggetto della Mail"
	MyMail.TextBody = "Corpo della mail"	
	MyMail.fields.update
	MyMail.Send
	Set MyMail= Nothing
	Set objConfig = nothing