السلام عليكم
ممكن احد يساعدني في الايرور في الكود
Imports System.Data
Imports System.Data.SqlClient
Imports System.Net.Mail
Partial Class ForgetMail
Inherits System.Web.UI.Page
Protected Sub BtnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSend.Click
Dim con As New SqlConnection(Web.Configuration.WebConfigurationManager.ConnectionStrings("CenterDBConnectionString").ConnectionString)
Dim sqlDa As New SqlDataAdapter("SELECT * FROM MemberTable WHERE UserName = '" & TxtName.Text & "'", con)
Dim ds As New DataSet()
sqlDa.Fill(ds, "MemberTable")
If ds.Tables("MemberTable").Rows.Count = 0 Then
Label1.Text = "الايميل غير صحيح"
Else
For i As Integer = 0 To ds.Tables("MemberTable").Rows.Count - 1
Label4.Text = ds.Tables("MemberTable").Rows(i)("Email").ToString()
Label5.Text = ds.Tables("MemberTable").Rows(i)("Password").ToString()
Next
Dim mail As New System.Net.Mail.MailMessage
mail.From = New System.Net.Mail.MailAddress("Neighborhood.jn@gmail.com", "neighborhoodjn")
mail.To.Add(New MailAddress("Label4.Text"))
mail.Subject = "كلمة المرور الخاصة بك"
mail.Body = Label5.Text + "هذه كلمة المرور لاتنسها مرة أخرى"
Label1.Text = "تم ارسال كلمة المرور الى بريدك بنجاح"
Dim mailer As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
Try
mailer.Send(mail)
Catch ex As Exception
Exit Try
End Try
End If
End Sub
End Classالايرور يعمله في التكست بوكس 4
The specified string is not in the form required for an e-mail address
mail.To.Add(New MailAddress("Label4.Text"))
في هذا السطر ياشر ع الايرور
ارجوكم ساعدوني
