Ik probeer in een access db via VBA een bericht te sturen naar een bepaalde gebruiker wanneer deze zijn/haar paswoord is vergeten. De gebruiker vult de gebruikersnaam in en vba zoekt het bijbehorende e-mail adres op en stuurt een bericht met daarin het paswoord.
Om dit te bereiken gebruik ik de volgende code:
--------------
Private Sub Command31_Click()
On Error GoTo errhandler
Dim strEmail As String
Dim strMessage As String
Dim strUserType As String
Select Case (UserType)
Case 1
strUserType = "a"
Case 2
strUserType = "b"
Case 3
strUserType = "c"
Case 4
strUserType = "d"
Case Else
strUserType = "No USER!!!"
End Select
strMessage = "Dear " & UserName & "," & vbNewLine _
& vbNewLine & _
"Your Username and Password for X are the following: " & vbNewLine _
& vbNewLine & _
"Username: " & UserName & vbNewLine & _
"Password: " & PassWord & vbNewLine _
& vbNewLine & _
"You are registered as a " & strUserType
If IsNull(Me.Email) Then
MsgBox ("There is no email address shown")
Exit Sub
ElseIf Me.Email = " " Then
MsgBox ("There is no email address shown")
Exit Sub
End If
strEmail = Me.Email
DoCmd.SendObject , , , strEmail, , , "Password X", strMessage, True
errhandler:
Exit Sub
End Sub
---------
Dit werkt op zich prima, maar het e-mail programma van de gebruiker wordt gebruikt om het bericht te sturen. Daarbij ziet de gebruiker dus welke gegevens verstuurd worden en is het heel makkelijk mogelijk om het paswoord van een andere gebruiker te bemachtigen.
Wanneer er in HTML geschreven wordt is er de POST functie om zonder gebruik van een e-mail programma een bericht te sturen naar een e-mail adres?
Is er in VBA ook een functie die ditzelfde bereikt, of is er een andere mogelijkheid?
Mvg,
Anton
Om dit te bereiken gebruik ik de volgende code:
--------------
Private Sub Command31_Click()
On Error GoTo errhandler
Dim strEmail As String
Dim strMessage As String
Dim strUserType As String
Select Case (UserType)
Case 1
strUserType = "a"
Case 2
strUserType = "b"
Case 3
strUserType = "c"
Case 4
strUserType = "d"
Case Else
strUserType = "No USER!!!"
End Select
strMessage = "Dear " & UserName & "," & vbNewLine _
& vbNewLine & _
"Your Username and Password for X are the following: " & vbNewLine _
& vbNewLine & _
"Username: " & UserName & vbNewLine & _
"Password: " & PassWord & vbNewLine _
& vbNewLine & _
"You are registered as a " & strUserType
If IsNull(Me.Email) Then
MsgBox ("There is no email address shown")
Exit Sub
ElseIf Me.Email = " " Then
MsgBox ("There is no email address shown")
Exit Sub
End If
strEmail = Me.Email
DoCmd.SendObject , , , strEmail, , , "Password X", strMessage, True
errhandler:
Exit Sub
End Sub
---------
Dit werkt op zich prima, maar het e-mail programma van de gebruiker wordt gebruikt om het bericht te sturen. Daarbij ziet de gebruiker dus welke gegevens verstuurd worden en is het heel makkelijk mogelijk om het paswoord van een andere gebruiker te bemachtigen.
Wanneer er in HTML geschreven wordt is er de POST functie om zonder gebruik van een e-mail programma een bericht te sturen naar een e-mail adres?
Is er in VBA ook een functie die ditzelfde bereikt, of is er een andere mogelijkheid?
Mvg,
Anton
