Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Net.Mail Partial Class Buyer_ForgotPassword Inherits System.Web.UI.Page Protected Sub btnsubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsubmit.Click Try Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") con.Open() Dim cmd As New SqlCommand cmd.CommandType = CommandType.Text cmd.CommandText = "SELECT BuyerRegister_Kid, BuyerRegister_Name, BuyerRegister_EmailId, BuyerRegister_pwd, BuyerRegister_CompanyName FROM BuyerRegister WHERE (BuyerRegister_EmailId = '" + txtusername.Text.Trim + "') and (BuyerRegister_CompanyName='" + txtcompanyname.Text.Trim + "')" cmd.Connection = con Dim dt As New DataTable Dim adp As New SqlDataAdapter(cmd) adp.Fill(dt) If dt.Rows.Count > 0 Then Dim StrMail As String = "" StrMail = "" StrMail = StrMail & "" & "" & "" StrMail = StrMail & "Contact Us" & "

" StrMail = StrMail & "" StrMail = StrMail & "" & "" StrMail = StrMail & "" StrMail = StrMail & "
" StrMail = StrMail & "Dear, " + dt.Rows(0)("BuyerRegister_Name").ToString & "

Greetings form ATCOMAART
Welcome to our online services.
" StrMail = StrMail & "
As per the requset your account login details are as given below :
" StrMail = StrMail & "
User ID:       " & dt.Rows(0)("BuyerRegister_EmailId").ToString & "
Password:    " & Decrypt(dt.Rows(0)("BuyerRegister_pwd").ToString) & "
" StrMail = StrMail & "
We welcome you to the ATCOMAART family. We hope you enjoy your experience here.
" StrMail = StrMail & "
Click on the below link for login in your account.
" StrMail = StrMail & "
www.atcomaart.com/buyer/buyer-home.aspx
" StrMail = StrMail & "
Thanks & Regards


ATCOMAART Team
www.atcomaart.com
contact.atcomaart@atco.in

" 'Dim MyMailMessage As New MailMessage() ''From requires an instance of the MailAddress type 'MyMailMessage.From = New MailAddress("contact.atcomaart@atco.in", "Atcomaart") ''To is a collection of MailAddress types 'MyMailMessage.To.Add(dt.Rows(0)("BuyerRegister_EmailId").ToString) 'MyMailMessage.CC.Add("contact.atcomaart@atco.in") 'MyMailMessage.Subject = "Your Password Confirmation..." 'MyMailMessage.Body = StrMail 'MyMailMessage.IsBodyHtml = True 'MyMailMessage.Priority = MailPriority.High 'Dim smtpclient As New SmtpClient("smtp.rediffmailpro.com") 'smtpclient.Credentials = New Net.NetworkCredential("contact.atcomaart@atco.in", "contact@55017_atco") 'smtpclient.Send(MyMailMessage) txtusername.Text = "" txtcompanyname.Text = "" MailSender.SendEmailWithBCC(dt.Rows(0)("BuyerRegister_EmailId").ToString, "Your Password Confirmation...", StrMail, Mail.MailFormat.Html, "", "chirag.chavda@atcomaart.com") showmessage("Your Password has been sent to your Email Address.", Label1) Else showmessage("Your User ID or Your Company Name dose not matched.", Label1) Exit Sub End If Catch ex As Exception showmessage("Some technical problems on atcomaart server, Please try later." & ex.Message.ToString, Label1) End Try End Sub End Class