Sending User Name & Password thru Email

[suganya]

Hi

By getting the email id from txtEmailId, I have to send the user name & password to that particular email id. For that on button click event I have given the coding as

 
Protected Sub imgSend_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgSend.Click
 
If txtEmailId.Text = "" Then
WebMsgBox.Show("Please enter your email address and try again.")
End If
 
 
Dim ob As String
Dim ob1 As String
Dim con As SqlConnection
Dim cmd As SqlCommand
Dim str, str1 As String
Dim rd As SqlDataReader
str = "user id=sa;password=cast;database=jsc;server=AURORA-SERVER"
con = New SqlConnection(str)
Try
con.Open()
Catch
End Try
str1 = "select loginid,password from login where email='" & Trim(txtEmailId.Text.ToString()) & "' "
cmd = New SqlCommand(str1, con)
rd = cmd.ExecuteReader()
While (rd.Read())
ob = rd.GetValue(1).ToString()
ob1 = rd.GetValue(2).ToString()
 
End While
Dim cnt As Int16
cnt = cmd.ExecuteScalar()
If cnt <= 0 Then
WebMsgBox.Show("The email address you entered does not match our records. Please check your entry and try again.")
Else
Dim msg As New Net.Mail.MailMessage("[e-mail]", txtEmailId.Text, "Re: Info", "User Id='" & ob & "' Password='" & ob1 & "'")
Dim mySmtp As New Net.Mail.SmtpClient("IP ADDRESS")
Try
mySmtp.Send(msg)
Label1.Text = "Mail Sent"
Catch ex As Exception
Label2.Text = ex.Message
Label1.Text = ex.InnerException.Message
End Try
End If
con.Close()
End Sub
 
Here I have retrived the user name & password from database, stored it in a variable & used the variables in the line as 
 
Net.Mail.MailMessage("[e-mail]", txtEmailId.Text, "Re: Info", "User Id='" & ob & "' Password='" & ob1 & "'")
 
Instead of passing the variable ob,ob1 as 
"User Id='" & ob & "' Password='" & ob1 & "'"
 

is there any other way to pass those variable.

[r035198x]

Your approach looks OK (to me). Any reason why don't want to pass the parameters like that?

[vijayB]

Your approach looks OK (to me). Any reason why don't want to pass the parameters like that?

I think this link will help you;

http://msdn.microsoft.com/en-us/library/system.net.mail.mailmessage.aspx

[suganya]

Dim msg As New Net.Mail.MailMessage("[e-mail]" , txtEmailId.Text, "Re: Info", "User Id='" & ob & "' Password='" & ob1 & "'")

In the above line I have specified the

Message body- it should be simply specified in "".
All that we entered inside the "" are considered simply as a text.So if I enter the user name & password DB values then it consider it (" & ob & "') also as the text that is inside.

[r035198x]

Dim msg As New Net.Mail.MailMessage("[e-mail]" , txtEmailId.Text, "Re: Info", "User Id='" & ob & "' Password='" & ob1 & "'")

In the above line I have specified the

Message body- it should be simply specified in "".
All that we entered inside the "" are considered simply as a text.So if I enter the user name & password DB values then it consider it (" & ob & "') also as the text that is inside.

What is the user Id and password supposed to be for?
The MailMessage class certainly doesn't need them.