Mail droppate: problema smtp?

[Kujo]

Salve,

io sto cercando di creare una semplice applicazione che mandi mail attraverso un form.
Ho copiato uno scriptino trovato tra le guide:

Dim email, commenti
Dim objMail, mandamiquesto

nome = Request.Form("nome")
email = Request.Form("email")
commenti = Request.Form("commenti")
mandamiquesto = nome & "VBcrlf" & email & "Vbcrlf" & commenti

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = nome

objMail.To = "miamail@gmail.com"

objMail.Subject = "Feedback dal sito"

objMail.Body = mandamiquesto

objMail.importance = 0

objMail.Send

Set objMail = Nothing
end sub

Nonostante nessun errore venga visualizzato, le mail non vengono spedite.
Restano tutte nella cartella Drop, con questi msg di errore:

Diagnostic-Code: smtp;550 DY-002 Mail rejected by Windows Live Hotmail for policy reasons. The likely cause is a compromised or virus infected server/personal computer. If you are not an email/network admin please contact your E-mail/Internet Service Provider for help. Email/network admins, please visit http://postmaster.live.com for email delivery information and support
...
Diagnostic-Code: smtp;550-5.7.1 [83.103.90.56] The IP you're using to send mail is not authorized
550-5.7.1 to send email directly to our servers. Please use the SMTP
550-5.7.1 relay at your service provider instead. Learn more at
550 5.7.1 http://mail.google.com/support/bin/a...y?answer=10336 y37si11087920mug.19

Ora, io non capisco bene gli errori, però non capisco neanche perchè dovrebbe funzionare
Voglio dire, io non ho configurato nulla...
Ho visto che nei codici asp.net, quando si crea l'oggetto mail bisogna anche specificare l'host.
A me ad esempio hanno detto che devo appoggiarmi al mio provider (in questo caso smtp.fastwebnet.it), ma come glielo dico?



IIS, col quale non ho affatto dimestichezza, è combinato così:





Se qualcuno riesce ad aiutarmi... Ringrazio in anticipo ^^

[Domenix]

L'errore dice che il tuo PC non è un server SMTP riconosciuto come tale e quindi non ti è permesso inviare email (sembra) ad un indirizzo hotmail. Ti viene consigliato di appoggiarti al server SMTP del tuo fornitore di connettività.
In pratica, usa CDOSYS dove puoi specificare l'SMTP da utilizzare.
Se CDOSYS non ce l'hai sul pc, allora cerca su internet la DLL relativa e la registri sul tuo PC.

[Kujo]

Ah quindi CDONTS se ho un server smtp attivo e funzionante, CDOSYS se mi appoggio al provider?
Ok, ora faccio delle prove.
Grazie!

[Kujo]

Dunque, ho cambiato così il codice:

Dim email, commenti
Dim objMail, objMailConfig, mandamiquesto

nome = Request.Form("nome")
email = Request.Form("email")
commenti = Request.Form("commenti")
mandamiquesto = nome & "VBcrlf" & email & "Vbcrlf" & commenti

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

with objMailConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.fastwebnet.it"

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
end with

Set objMail.Configuration = objMailConfig

objMail.From = nome

objMail.To = "miamail@gmail.com"

objMail.Subject = "Feedback dal sito"

objMail.TextBody = mandamiquesto
objMail.HTMLBody = mandamiquesto

objMail.Fields("urn:schemas:httpmail:importance"). Value = 0
objMail.Fields.update()

objMail.Send()

Set objMail = Nothing

Ora mi da questo errore:
Impossibile visualizzare la pagina
... cut ...
Tipo di errore:
(0x8004020E)
file.asp, line 102

Quando il form richiama file.asp

Dove la riga 102 è:
objMail.Send()

Premetto che ho provato anche senza le parentesi: objMail.Send



Su quell'errore, online ho trovato poco e nulla. Non capisco cosa sbaglio



Aggiornamento:
Ho trovato che forse quell'errore è una non-accettazione del mittente.
Ho cambiato From = nome in From = email
(quindi il mittente sarà un indirizzo mail valido, mentre prima era il nome di chi compilava il form).
Da errore alla stessa riga, ma cambia il codice:
(0x80040211)

[Domenix]

objMail.TextBody = mandamiquesto
objMail.HTMLBody = mandamiquesto
O l'uno o l'altro.

[Kujo]

Ok grazie.
Dunque adesso credo il codice non abbia più problemi. In quanto su un altro pc funziona.
Sul mio però continua a darmi il problema 0x80040211
Boh a questo punto forse è una questione di permessi (sto in una lan) o simili, non so.
Se avete idee, mi fa piacere. Altrimenti vedo un pò come arrangiarmi, mi rendo conto che a questo punto non è più un problema da forum ASP :P