Public Sub EmailToclient(ByVal email As String, ByVal username As String, ByVal password As String)' TryDim mail As New MailMessage()'mail.[To].Add("[email protected]")mail.[To].Add(email)' mail.From = New MailAddress("[email protected]")mail.From = New MailAddress(System.Configuration.ConfigurationManager.AppSettings("From").ToString())Dim NetworkCred As New System.Net.NetworkCredential()NetworkCred.UserName = "[email protected]"NetworkCred.Password = "Admin"' or could be @gmail.com and etc OR it can be a textbox were you CAN enter your email' mail.Subject = "Comment/Question"mail.Subject = System.Configuration.ConfigurationManager.AppSettings("EmailSubject").ToString()'string Body = the_textbox_Name_were_you_enter_your_message.text;' Dim Body As [String] = "body text"mail.Body = "Dear " & username & " your password is " & passwordmail.IsBodyHtml = TrueDim smtp As New SmtpClient()'smtp.Host = "smtp.gmail.com"'smtp.Host = "174.133.41.130"smtp.Host = "mail.gfln.org"'smtp.Port = 587smtp.Port = 25'smtp.Credentials = New System.Net.NetworkCredential(email, "Admin")smtp.UseDefaultCredentials = Truesmtp.Credentials = NetworkCredsmtp.EnableSsl = Truesmtp.Send(mail)' Catch ex As Exception' Throw ex' End TryEnd Sub