invio mail non va..

[videoD]

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?

[orcim]

verifica che componente utilizza il tuo server per l'invio di email; cerca sul forum per comchecker.

[videoD]

ok grazie

[luigi1970]

- altro codice per la connessione ad un database...

mittente = "mionome<mionome@miodominio.com>"
Do until Recset.eof
destinatario = RecSet("email")
testo = Request.Form("testo") 'questa informazione proviene da un modulo
oggetto = Request.Form("oggetto")
' INVIO DEL MESSAGGIO - Creazione Oggetto ed impostazioni varie...
Set email = CreateObject("CDO.message")
email.From = mittente
email.To = destinatario
email.Subject = oggetto
' ALLEGA UNO o PIU FILE
email.AddAttachment allegato 'Un path nel server
' COMPONE IL CORPO DELLA MAIL
email.htmlBody = Request.form ("corpo")
email.fields("urn:schemas:httpmail:importance").va lue = 2
email.fields.update()
' INVIA L'EMAIL
email.Send()
Set email = Nothing
RecSet.Movenext
loop
End If
RecSet.Close
Conn.close
Set RecSet = Nothing
Set Conn = Nothing

[videoD]

direi di si...grazie!