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() regexval_txt_Email.Validate()
Catch ex As Exception Catch ex As Exception
Dim Msg, Style, Title As String 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 Style = vbRetry + vbExclamation + vbDefaultButton1
Title = "Fehler bei E-Mail Authentifizierung!" Title = "Fehler bei E-Mail Authentifizierung!"
MsgBox(Msg, Style, Title) MsgBox(Msg, Style, Title)
@@ -72,7 +72,7 @@ Partial Class login_ForgotPW
'MsgBox(tokenname, msgboxstyle) 'MsgBox(tokenname, msgboxstyle)
MsgBox("Token erfolgreich generiert.") MsgBox("Token erfolgreich generiert.")
Else 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) tokenname = genToken(username, password, email)
End If End If
'SendEmail(username, password, email) 'SendEmail(username, password, email)