Ciao ... io ho modificato lo script nella pagina registrazione.asp in modo da ottimizzarla per il mio portale. Mi trovo benissimo, funziona tutto bene, ma io l'ho personalizzato in molte parti.
Per quanto riguarda la registrazione per l'invio email, visto che su aruba va bene solo il cdosys ho eliminato le altre opzioni ed ho modificato la pagina suddetta in questo modo ( inserisco solo la parte riguardante l'invio email ) :
codice:
If conf_email = "True" AND tipoMail <> "None" Then
strFromName = pageTitle & " Webmaster"
strFromEmail = "info@dominio.it>"
strRecipientsEmail = new_email
strRecipientsName = new_name
strSubject = pageTitle & " Registrazione"
strMessage = "------------------------------------------" & vbCrLf & _
"Grazie per esserti registrato, " & strRecipientsName & "! " & vbCrLf & _
"Per completare la registrazione, clicca sul seguente link:" & vbCrLf & _
" " & homePage & curSubFolders & "attivo.asp?userCode=" & str_new_usercode & vbCrLf & vbCrLf & _
"Grazie," & vbCrLf & pageTitle & " Webmaster"
Select Case LCase(tipoMail)
Case "cdosys"
'Crea l'oggetto email per la notifica dell'iscrizione
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "info@dominio.it>"
destinatario = new_email
oggetto = "Registrazione a Sito!"
messaggio ="------------------------------------" & VbCrLf &_
"---- Iscrizione a Sito.it ----" & VbCrLf &_
"------------------------------------" & VbCrLf &_
"Ti sei iscritto al sito Sito.it" & VbCrLf &_
"con il seguente indirizzo email : " & new_email & VbCrLf &_
"Per completare la registrazione, clicca sul seguente link:" & vbCrLf & _
" " & homePage & curSubFolders & "attivo.asp?userCode=" & str_new_usercode & vbCrLf & vbCrLf & _
"Grazie," & vbCrLf & pageTitle & " Admin."
With iMsg
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
.TextBody = messaggio
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
Spero ti possa essere utile.
Rispondi quotando
