Ho trovato in rete questo codice per inviare posta utilizzando smpt di ii6
codice:
nome = request.Form("nome")
cognome = request.Form("cognome")
azienda= request.Form("telefono")
telefono = request.Form("telefono")
email = request.Form("email")
richieste= request.Form("richieste")
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="utente"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="password"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' server
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
' invio dell'e-mail
objMail.From = Request.Form("email")
objMail.To = "info@dominio.it"
objMail.Subject = "Messaggio da xxxxx"
objMail.TextBody = "FORM MAIL - WWW.DOMINIO.IT -"& vbCrLF & vbCrLF & vbCrLF &"Nome: "&nome & vbCrLF & vbCrLF&"Cognome: "&cognome & vbCrLF& vbCrLF &"Telefono:  "&telefono & vbCrLF& vbCrLF &"E-mail:  "&email & vbCrLF& vbCrLF & "Messaggio:  "&vbCrLF& richieste
objMail.Send()
set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing
Se non utilizzo l'autenticazione lo script funziona, se invece la utilizzo ricevo l'errore error ’8004020f’
Volevo chiedervi ma sendusername e sendpassword come si impostano in ii6?