inviare e-mail tramite asp

[eziolink88]

salve a tutti,
ho implementato nel mio sito un modulo per inviare una email tramite una form ma con il mio codice ottengo sempre questo errore

CDO.Message.1 error '80040213' 

Il trasporto non è riuscito a connettersi al server. 

/edilsv/gestioneform.asp, riga 111

devo precisare che sto lavorando in locale ed ho win7. Il codice è:

'invio l'email tramite form
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoImportance = "urn:schemas:httpmail:importance"

Set objMail = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")

with objConf.Fields

	.Item(cdoSendUsingMethod) = cdoSendUsingPort
	.Item(cdoSMTPServer) = "localhost"
	.Update

end with

with objMail
	Set .Configuration = objConf
	.From = email
	.To = "xxx@hotmail.it"
	.Subject = "prova"
	.TextBody = "prova"
	.Send()
end with

Set objMail = Nothing
Set objConf = Nothing

Qualcuno sa come posso risolvere il problema?

[eziolink88]

Help non funziona

[eziolink88]

Ho provato con questo codice trovato in rete

Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = Server.CreateObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tin.it"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
' Assegna all'oggetto le proprietà necessarie
objMail.From = email ' Mittente
objMail.To = "xxx@hotmail.it" ' Destinatario
objMail.Subject = "prova" ' Oggetto
objMail.HTMLBody = "prova" ' Messaggio
' Invia l'email
objMail.Send()
Set objMail = Nothing

e mi da un errore generico 8004020f senza desrizione se sono in locale quale server smtp devo impostare ho telecom ho fatto bene ad impostare smtp.tin.it?

[lucavizzi]

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