Password

[jdwm2310]

Guys,

I would like to create a "forgot my password" button. I have a global variant environment. Sometimes my users forget their password I want them instead of calling me for the password I want them to obtain it via email. Any suggestions as to how to approach this?

 

[jdwm2310]

This is what I tried to do:

Private Sub Command38_Click()
Dim strpass As Variant
strpass = DLookup("Password", "User", "[UserName] = cboUserName&quot
MsgBox "Your password will be sent to your email address", vbOKOnly + vbInformation = vbOK
SendNotesMail "HR Help Desk Password", "", Me.cbousername, , "Your Password is & strpass & ", True
DoCmd.Close acForm, "Log"

End Sub