[quote]Tu hai dei documenti salvati, per gli utenti già registrati, con al loro
interno un campo username.
Hai fatto un form con un campo username2 dove l\'utente inserisce la sua
username per recuperare la sua password dimenticata, giusto?
Impostiamo curdoc il form aperto a video via web
set curdoc=session.DocumentContext
prendo il valore username
username=curdoc.username2(0)
ora vado a vedere se l\'utente è già registrato
Set registrati = db.GetView( "registrati" )
Set doc = registrati.GetDocumentByKey(username,True)
If Not doc Is Nothing Then
vuol dire che è già registrato
docMemo.Form = "Memo"
docMemo.SendTo = doc.email(0)
docMemo.Subject = "Prova"
Set rtitem = New NotesRichTextItem( docMemo, "Body" )
Call rtitem.AppendText("Prova")
Call rtitem.AddNewline(2)
Call rtitem.AppendText("La sua password è "+doc.password(0))
Call docMemo.Send(False)[/quote]
Ho impostato i questa maniera:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docMsg As NotesDocument
Dim docPsw As NotesDocument
Dim docMemo As NotesDocument
Dim rtitem As NotesRichTextItem
Dim registrati As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set docMsg = session.DocumentContext
Set docPsw = session.DocumentContext
username=docPsw.username2(0)
Set docMemo = db.CreateDocument
Set registrati = db.GetView( "registrati" )
Set doc = registrati.GetDocumentByKey(username, True)
If Not doc Is Nothing Then
docMemo.Form = "Memo"
docMemo.SendTo = docMsg.email(0)
docMemo.Subject = "Prova"
Set rtitem = New NotesRichTextItem( docMemo, "Body" )
Call rtitem.AppendText("Prova")
Call rtitem.AddNewline(2)
Call rtitem.AppendText("La sua utenza, come da lei indicato; è :")
Call rtitem.AddNewline(2)
Call rtitem.AppendText("Username : "+docMsg.username(0))
Call rtitem.AddNewline(2)
Call rtitem.AppendText("Password : "+docMsg.password(0))
Call docMemo.Send(False)
Else
Call
docPsw.ReplaceItemValue("$$Return","[/home.nsf/RichiediPassword?OpenForm&msg=nov
aliduser]")
End If
End Sub
ma non funziona ovvero non mi arriva la mail
ho inserito da web l\'username "test" che è un utente già registrato che è un
documento che nel campo "email" ha la mia mail
ma niente non funziona
|