Non mi funziona non riesco a mandare email mi da questo errore:
error '8004020e'
/lpf/common/mail.asp, line 42
questo e ' il codice che uso :
Dim objMail, objConfig
'Crea l'oggetto email
Set objMail = 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") = "10.39.2.13"
'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 = request.Form("From") 'Mittente
objMail.To = Request.Form("To") 'Destinatario
objMail.Subject =Request.Form("Oggetto") 'Oggetto
objMail.HTMLBody =Request.Form("mail") 'Messaggio
'Invia l'email
objMail.Send()
Set objMail = Nothing
Grazie Claudio
Rispondi quotando
