linkbutton zu ChangePW Seite wurde erstellt

login/ForgotPW.aspx.vb

@@ -78,6 +78,8 @@ Partial Class login_ForgotPW
     End Function
 
     Function SendEmail(username As String, password As String, email As String) As Boolean
+        Dim lkb As LinkButton = New LinkButton()
+        lkb.PostBackUrl = "ChangePW.aspx"
         Dim Msg As New MailMessage
         Dim myCredentials As New System.Net.NetworkCredential
         myCredentials.UserName = "al@verag.ag"
@@ -89,10 +91,11 @@ Partial Class login_ForgotPW
         mySmtpsvr.UseDefaultCredentials = False
         mySmtpsvr.Credentials = myCredentials
         Try
+
             Msg.From = New MailAddress("al@verag.ag")
             Msg.To.Add(email)
             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)
+            Msg.Body = String.Format("Sehr geehrte/r {0},<br /><br /> Der Link zum Zurücksetzen des Passwortes lautet:<br /><br /><br />.<br />" + Environment.NewLine + lkb.PostBackUrl + Environment.NewLine + "<br />Mit freundlichen Grüßen,", username, password)
 
             '     Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx")
             '     Msg.Attachments.Add(attachment)