Tokenmessages

This commit is contained in:
ja
2021-10-13 09:08:24 +02:00
parent ac10d449dc
commit f5dd3128af

View File

@@ -50,7 +50,7 @@ Partial Class login_ForgotPW
regexval_txt_Email.Validate()
Catch ex As Exception
Dim Msg, Style, Title As String
Msg = "E-mail Prüfung fehlgeschlagen!" & vbCrLf + "Bitte erneut versuchen!"
Msg = "E-Mail Prüfung fehlgeschlagen!" & vbCrLf + "Bitte erneut versuchen!"
Style = vbRetry + vbExclamation + vbDefaultButton1
Title = "Fehler bei E-Mail Authentifizierung!"
MsgBox(Msg, Style, Title)
@@ -72,7 +72,7 @@ Partial Class login_ForgotPW
'MsgBox(tokenname, msgboxstyle)
MsgBox("Token erfolgreich generiert.")
Else
MsgBox("token nicht mehr Gültig! Neuer wird generiert!")
MsgBox("Token ist nicht mehr gültig! Es wird ein neuer generiert!")
tokenname = genToken(username, password, email)
End If
'SendEmail(username, password, email)