From cf4d7b7f12b16485d190ecf27ba9177812743a03 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Wed, 6 Oct 2021 10:27:03 +0200
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 css/login/ForgotPW.css | 2 +-
 login/ForgotPW.aspx.vb | 9 +++++----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/css/login/ForgotPW.css b/css/login/ForgotPW.css
index a756de3..ca7c59c 100644
--- a/css/login/ForgotPW.css
+++ b/css/login/ForgotPW.css
@@ -1,7 +1,7 @@
 body {
     font-family: 'Poppins', sans-serif;
     background: #fafafa;
-    background-image: url(../images/road.jpg);
+    background-image: url(../../images/road.jpg);
     background-position: center center;
     background-repeat: no-repeat;
     background-attachment: fixed;
diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb
index 0cfa70d..5c84600 100644
--- a/login/ForgotPW.aspx.vb
+++ b/login/ForgotPW.aspx.vb
@@ -55,7 +55,7 @@ Partial Class login_ForgotPW
 
         If Not String.IsNullOrEmpty(username) Then
             'password = RandomString(New Random, 10)
-            'SendEmail(username, password, email)
+            SendEmail(username, password, email)
             MsgBox("Mail would be sent successfully!")
             lblMessage.ForeColor = Color.Green
             lblMessage.Text = "Passwort wurde erfolgreich an die angegebene E-Mail Adresse gesendet."
@@ -91,12 +91,13 @@ Partial Class login_ForgotPW
         Try
             Msg.From = New MailAddress("al@verag.ag")
             Msg.To.Add(email)
-            Msg.Subject = "TEST"
-            Msg.Body = String.Format("Hi {0},<br /><br />Your password is {1}.<br /><br />Thank You.", username, password)
+            Msg.Subject = "Passwort reset"
+            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")
             '     Msg.Attachments.Add(attachment)
-            '     mySmtpsvr.Send(Msg)
+            mySmtpsvr.Send(Msg)
+
             MsgBox("SENT")
             Return True
         Catch ex As Exception