khz-web1
یک شنبه 12 مهر 1388, 11:38 صبح
با سلام
من یک گرید ویو دارم که ستون chekbox داره ... حالا می خوام واسه اون سطر هایی که تیک
خوردن ایمیل ارسال کنم ....
کدی که خودم نوشتم به صورت زیر می باشد
ForEach row As GridViewRow In GridView1.Rows
Dim checkbox As CheckBox = CType(row.FindControl("cbRows"), CheckBox)
If checkbox.Checked Then
Dim employeeID AsInteger = Convert.ToInt32(GridView1.DataKeys(row.RowIndex).V alue)
'MsgBox(drselect(employeeID).ToString)
Dim mail AsNew MailMessage
Dim smtp AsNew SmtpClient("0.0.0.0")
mail.From = New MailAddress(TextBox2.Text)
mail.Subject = TextBox5.Text
mail.IsBodyHtml = True
mail.Body = TextBox4.Text
mail.Headers.Add("linkadress", TextBox1.Text)
mail.To.Add(drselect(employeeID))
smtp.Credentials = New Net.NetworkCredential("user@user.com", "pass")
smtp.Send(mail)
Response.Redirect("thank.aspx")
EndIf
Next row
و تابع
Function drselect(ByVal ass As Integer) As String
Dim con As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=databasenewslater;User ID=sa;Password=123456789")
Dim cmd AsNew SqlCommand
Dim dr As SqlDataReader
cmd.CommandText = "Select * from membertable where userid=@userid"
cmd.Parameters.AddWithValue("@userid", ass)
cmd.Connection = con
con.Open()
dr = cmd.ExecuteReader()
While (dr.Read)
Return dr("useremail").ToString
EndWhile
con.Close()
End Function
وقتی این کد رو روی سرور تست می کنم فقط برای ایمیل اول موجو در جدول پایگاه داده ام ارسال می کند ... بخاطر اینکه تو قسمت To: فقط یک آدرس ایمیل وجود داره
با تشکر
من یک گرید ویو دارم که ستون chekbox داره ... حالا می خوام واسه اون سطر هایی که تیک
خوردن ایمیل ارسال کنم ....
کدی که خودم نوشتم به صورت زیر می باشد
ForEach row As GridViewRow In GridView1.Rows
Dim checkbox As CheckBox = CType(row.FindControl("cbRows"), CheckBox)
If checkbox.Checked Then
Dim employeeID AsInteger = Convert.ToInt32(GridView1.DataKeys(row.RowIndex).V alue)
'MsgBox(drselect(employeeID).ToString)
Dim mail AsNew MailMessage
Dim smtp AsNew SmtpClient("0.0.0.0")
mail.From = New MailAddress(TextBox2.Text)
mail.Subject = TextBox5.Text
mail.IsBodyHtml = True
mail.Body = TextBox4.Text
mail.Headers.Add("linkadress", TextBox1.Text)
mail.To.Add(drselect(employeeID))
smtp.Credentials = New Net.NetworkCredential("user@user.com", "pass")
smtp.Send(mail)
Response.Redirect("thank.aspx")
EndIf
Next row
و تابع
Function drselect(ByVal ass As Integer) As String
Dim con As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=databasenewslater;User ID=sa;Password=123456789")
Dim cmd AsNew SqlCommand
Dim dr As SqlDataReader
cmd.CommandText = "Select * from membertable where userid=@userid"
cmd.Parameters.AddWithValue("@userid", ass)
cmd.Connection = con
con.Open()
dr = cmd.ExecuteReader()
While (dr.Read)
Return dr("useremail").ToString
EndWhile
con.Close()
End Function
وقتی این کد رو روی سرور تست می کنم فقط برای ایمیل اول موجو در جدول پایگاه داده ام ارسال می کند ... بخاطر اینکه تو قسمت To: فقط یک آدرس ایمیل وجود داره
با تشکر