Änderungen

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