Ciao,

sto provando questo nuovo script per l' invio di una mail da server aruba, cdonts non funziona più...ma nemmeno questo, nonmi da errore ma non invia...


<%

' Dichiara l'oggetto email e la configurazione
Dim objMail, objConfig

' Dimensiona 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
' Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.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

' Mittente dell'email (indirizzo)
objMail.From = "staff@sbubba.net"

' Destinatario dell'email (indirizzo)
objMail.To = "ondabeat@tin.it"


' Oggetto dell'email
objMail.Subject = "Oggetto della mail"

' Valore di priorità
objMail.Fields("urn:schemas:httpmail:importance"). Value = 2
objMail.Fields.update()


' Corpo del messaggio
objMail.TextBody = "Testo della mail" ' Formato Testo
objMail.HTMLBody = "Testo della mail" ' Formato HTML

' Invia l'email
objMail.Send()

' Distruggi l'oggetto
Set objMail = Nothing

%>

PS - Preso da weppos, qualcuno mi aiuta a capire come mai non funziona?