edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen

Browse Source
This commit is contained in:
ja
2021-10-06 10:27:03 +02:00
parent 169d906b54
commit cf4d7b7f12
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
css/login/ForgotPW.css
View File

@@ -1,7 +1,7 @@
body { body {
font-family: 'Poppins', sans-serif; font-family: 'Poppins', sans-serif;
background: #fafafa; background: #fafafa;
background-image: url(../images/road.jpg); background-image: url(../../images/road.jpg);
background-position: center center; background-position: center center;
background-repeat: no-repeat; background-repeat: no-repeat;
background-attachment: fixed; background-attachment: fixed;

9
login/ForgotPW.aspx.vb
View File

@@ -55,7 +55,7 @@ Partial Class login_ForgotPW
If Not String.IsNullOrEmpty(username) Then If Not String.IsNullOrEmpty(username) Then
'password = RandomString(New Random, 10) 'password = RandomString(New Random, 10)
'SendEmail(username, password, email) SendEmail(username, password, email)
MsgBox("Mail would be sent successfully!") MsgBox("Mail would be sent successfully!")
lblMessage.ForeColor = Color.Green lblMessage.ForeColor = Color.Green
lblMessage.Text = "Passwort wurde erfolgreich an die angegebene E-Mail Adresse gesendet." lblMessage.Text = "Passwort wurde erfolgreich an die angegebene E-Mail Adresse gesendet."
@@ -91,12 +91,13 @@ Partial Class login_ForgotPW
Try Try
Msg.From = New MailAddress("al@verag.ag") Msg.From = New MailAddress("al@verag.ag")
Msg.To.Add(email) Msg.To.Add(email)
Msg.Subject = "TEST" Msg.Subject = "Passwort reset"
Msg.Body = String.Format("Hi {0},<br /><br />Your password is {1}.<br /><br />Thank You.", username, password) Msg.Body = String.Format("Sehr geehrte/r {0},<br /><br />Das Passowrt lautet: {1}.<br /><br />Mit freundlichen Grüßen,", username, password)
' Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx") ' Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx")
' Msg.Attachments.Add(attachment) ' Msg.Attachments.Add(attachment)
' mySmtpsvr.Send(Msg) mySmtpsvr.Send(Msg)
MsgBox("SENT") MsgBox("SENT")
Return True Return True
Catch ex As Exception Catch ex As Exception