Problemi con CDONTS.NewMail..aiuto!!

[cogito]

Ciao a tutti. Sto cercando di fare una pagina per l'invio delle mail.
Il codice è il seguente
<%
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")

miaMail.From = "miamail@libero.it"
miaMail.To = "miamail@libero.it"
miaMail.Subject = "Oggetto della mail"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0

'Invio il file
'miaMail.AttachFile "c:\freeasp.txt", "nuovoNome.txt"

miaMail.Body = "Testo della mail"
miaMail.Send

Set miaMail = Nothing

%>
Ma quando la eseguo mi da il seguente errore

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01AD)
Il componente ActiveX non può creare l'oggetto: 'CDONTS.NewMail'

Come posso fare?
Qualcuno può aiutarmi?
Grazie in anticipo

[Roby_72]

Quell'oggetto non è sul server che usi.
Prova con l'oggetto CDOSYS, qui trovi alcune differenze: http://www.weppos.com/asp/script/categoria_email.asp

Roby

[michele.santoro]

Probabilmente sul server non è presente il componente CDONTS. vedi che componente usa il server per l'invio di email (probabilmente CDOSYS) e modifica lo script di conseguenza.

[cogito]

Sto provando dal mio server IIS in locale. Fors esimancano oggetti.
Cmq un codice come quello seguente dovrebbe funzionare?
<%

' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

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") = "mail.libero.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 = "miamail@libero.it" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio

' Invia l'email
objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente " &_
"all'indirizzo " &_
Request.Form("email"))

else %>
<form name="formail" method="post" action="?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>Email</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>
<% end if %>

[Roby_72]

Se hai l'oggetto sul server si.
Che sistema operativo hai? Su Windows XP Pro nessuno dei due è installato di default.

Roby

[cogito]

Si ho win Xp Pro.
Infatti immaginavo non fossero installati.
Come posso far per provare questi script?
Da dove potrei installarli?

[Roby_72]

http://www.creamweb.it/public/sw/cdonts_cdosys.zip

Roby

[cogito]

Grazie!
Ho copiato le dll sotto C:\WINDOWS\system
Da qui non riesce a connettersi al server.
Riproverò da casa.
Grazie ancora.

[ferola]

stai con aruba?
perchè in caso loro hanno server di entrambi i tipi, per cui spesso le applicazioni x la spedizione mail che funzionano con uno non funzionano con l'altro