invio mail asp impossibile

[tretretre]

ciao a tutti,
ho un problema urgente che non riesco a risolvere.
devo fare una pagina contatti per inviare email a me.
ho usato questo codice

<%
'Sends an email
Dim mail
Set mail = Server.CreateObject("CDO.Message")
mail.To = Request.Form("To")
mail.From = Request.Form("From")
mail.Subject = Request.Form("Subject")
mail.TextBody = Request.Form("Body")
mail.Send()
Response.Write("Mail Sent!")
'Destroy the mail object!
Set mail = nothing
%>

ma quando lo vado ad eseguire mi dà errore a mail.send()
ho provvato anche atri codici trovati in rete ma mi dà sempre errore al .send.

come posso risolvere? da cosa può dipendere?
grazie

[Roby_72]

Mettendo i parametri di configurazione.

Roby

[azione]

Devi usare l'oggetto CDO.Configuration per configurare il server smtp:

http://msdn.microsoft.com/en-us/library/ms526318(v=exchg.10).aspx

[tretretre]

Originariamente inviato da azione
Devi usare l'oggetto CDO.Configuration per configurare il server smtp:

http://msdn.microsoft.com/en-us/library/ms526318(v=exchg.10).aspx

quindi così?

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="admin@aaa.com"
myMail.To="admin@aaa.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://msdn.microsoft.com/en-us/library/ms526318(v=exchg.10).aspx")
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

[tretretre]

Originariamente inviato da azione
Devi usare l'oggetto CDO.Configuration per configurare il server smtp:

http://msdn.microsoft.com/en-us/library/ms526318(v=exchg.10).aspx

quindi così?

 
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="aaa@bbb.com"
myMail.To="ccc@ddd.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://msdn.microsoft.com/en-us/library/ms526318(v=exchg.10).aspx")
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing