Ciao
ho installato un CMS sul mio sever e non riesco a far funzionare lo script x recuperare le pssw tramite email.
In sostanza clicco su Recupera Pssw --> Inserisco l'email sulla quale ricevere la pssw dimenticata --> ottengo questo errore:
CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
l'errore lo da su questa linea:
MiaMail.Send()
Il codice del recupera pssw è questo:
MyBody = MyBody
Dim Config, Fields
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serverSMTP"
Fields.Update
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = MailAdmin
buckup = Request.Form("EMailIscritto")
MiaMail.To = buckup
MiaMail.Subject = SubjectMailDimenticata
MiaMail.HTMLBody = MyBody
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
Set Config = Nothing
Set Fields = Nothing
Su questo CMS utilizzo un form email funzionante e il codice è questo:
'---Funzioni per inviare mail
' dichiaro alcuni variabili
Function InvioMail(byVal ServerMail, byVal Mittente, byVal Destinatario, byVal Titolo, byVal Corpo)
Dim iMsg
Dim iConf
Dim Flds
'Dim out
' queste righe possono cambiare in relazione al provider
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Flds.Update
With iMsg
Set .Configuration = iConf
.To = destinatario
.From = mittente
.Subject = titolo
.TextBody = corpo
.Send
End With
End Function
...potete aiutarmi?
Rispondi quotando
