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

linkbutton zu ChangePW Seite wurde erstellt

Browse Source
This commit is contained in:
ja
2021-10-06 16:26:19 +02:00
parent 94cc216ecb
commit 77f663d96c
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
login/ForgotPW.aspx.vb
View File

@@ -78,6 +78,8 @@ Partial Class login_ForgotPW
End Function End Function
Function SendEmail(username As String, password As String, email As String) As Boolean 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 Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "al@verag.ag" myCredentials.UserName = "al@verag.ag"
@@ -89,10 +91,11 @@ Partial Class login_ForgotPW
mySmtpsvr.UseDefaultCredentials = False mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials mySmtpsvr.Credentials = myCredentials
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 = "Passwort reset" 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") ' Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx")
' Msg.Attachments.Add(attachment) ' Msg.Attachments.Add(attachment)