Email. To address from database

method in the button click
1- SendMAilMessage()
2- Private Sub SendMAilMessage()
Dim body As String = Me.PopulateBody("Dear User", _
"Result based Monitoring And Evaluation system from Plan PAKISTAN", _
"http://www.planrbme.com.pk" & _
"", _
("we are very pleased to inform you that your requested achievement against the targets have been approved by the supervisor .<br/> " & _
"Suggested Comments are :  {" & AcceptComments & "} .<br/>.<br/> " & _
"<br/>.<br/>Dated:" & DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss ")))
Me.SendHtmlFormattedEmail(GetUserIDEmail(ddlusers.SelectedValue), "Record Accepted", body)
End Sub
3- Private Sub SendHtmlFormattedEmail(ByVal recepientEmail As String, ByVal subject As String, ByVal body As String)



Dim mailMessage As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage
Try
mailMessage.From = New MailAddress(ConfigurationManager.AppSettings("UserName"))
' mailMessage.CC.Add("danish.habib@plan-international.org")
mailMessage.Bcc.Add("spober_woh@yahoo.com")
mailMessage.Subject = subject
mailMessage.Body = body
mailMessage.IsBodyHtml = True
mailMessage.To.Add(New MailAddress(recepientEmail))
Dim files As List(Of HttpPostedFile) = DirectCast(Cache(Me.Key), List(Of HttpPostedFile))
For Each file As HttpPostedFile In files
mailMessage.Attachments.Add(New Attachment(file.InputStream, Path.GetFileName(file.FileName), file.ContentType))
Next
mailMessage.From = New MailAddress("omer@planrbme.com.pk")

Dim smtp As New SmtpClient()
smtp.Host = "202.165.228.15"
smtp.EnableSsl = False
smtp.Credentials = New System.Net.NetworkCredential("omer@planrbme.com.pk", "Pakistan_123")
smtp.Port = 25
smtp.Send(mailMessage)

Catch ex As Exception
ex.Message.ToString()
End Try



End Sub
Private Function GetUserIDEmail(ByVal UserId As Integer) As String
Dim UserType As String = Nothing
Dim cnnResource As New SqlConnection(AppSettings("DbSqlPortal"))
Dim cmdResource As New SqlCommand("GetEmailAddressForDropdownFromPartner", cnnResource)
Dim drResource As SqlDataReader = Nothing

cmdResource.CommandType = CommandType.StoredProcedure
cmdResource.Parameters.Add("@UserId", SqlDbType.NVarChar).Value = ddlusers.SelectedValue
Try
cnnResource.Open()
drResource = cmdResource.ExecuteReader(CommandBehavior.SingleRow)
If drResource IsNot Nothing AndAlso drResource.Read() Then
UserType = drResource("Email")
Else
Throw New Exception("Record could not be found/read.")
End If
Catch ex As Exception
ex.Message.ToString()
Finally

End Try
Hdm.Value = UserType
Return UserType



End Function