Salve a tutti ho questo errore quando provo ad inviare una mail con un pagina che usa l'oggetto CDO.


CDO.Message.1 error '8004020a'

Impossibile trovare nell'origine di configurazione il nome server SMTP necessario.

/civitas/funzioni/inviamail.asp, line 106

La parte di script incriminata è questo

"
....

Dim objConfig

Set objMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp server") = "ip del server di posta"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp serverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp connectiontimeout") = 60
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Fields.Update
End With

Set objMail.Configuration = objConfig
objMail.From = "info@dominio.it"
objMail.To = strMail
objMail.Bcc = "notifica@dominio.it"
objMail.Subject = "Conferma registrazione indirizzo di posta elettronica al portale CIVITAS." & " Alla cortese attenzione di " & strUser & " " & strCode1
objMail.Fields("urn:schemas:httpmail:importance"). Value = 2
objMail.Fields.Update()
objMail.HTMLBody = testomail'Formato HTML
objMail.Send()
Set objMail = Nothing


nel campo smpt server ho indicato l'ip del server che è utilizzato per l'invio della posta elettronica. La mia perplessità è che così facendo lo script non riesce ad infividuare il server di posta. La username e la password sono corrette. Del resto ho lo stesso errore utilizzando un accesso anonimo. Quindi di fatto non riesco dal server dove risiedono la pagina asp ad accedere al server di posta elettronica.

Cosa ne pensate?