Enviar Login e Senha De Um Banco MySQL para e-mail

Question

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Email As String
        Dim StrEmail As String = "Select DsEmail From DcUsuario Where DsEmail= '" & TextBox1.Text & "' "
        Dim comando As New MySqlCommand(StrEmail, conexao)
        conexao.Open()
        Email = comando.ExecuteScalar()
        conexao.Close()

        If Email > "" Then
            Dim Mail As New MailMessage
            Mail.From = New MailAddress("[e-mail]")
            Mail.To.Add(TextBox1.Text)
            Mail.Subject = "Recuperação de senha!"
            Mail.Body = "Login e Senha:" (AQUI DEVE FICAR A CONSULTA DO BANCO DE DADOOS)
            Dim SMTP As New SmtpClient("smtp.live.com")
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("[e-mail]", "*********")
            SMTP.Port = 587
            SMTP.Send(Mail)
            MsgBox("Email enviado com sucesso!")
            Mail.Dispose()
            comando.Dispose()
            conexao.Dispose()
            Me.Close()
        Else
            MsgBox("Verifique se o e-mail está correto!")
        End If
    End Sub

Bom, diante da consulta do banco de dados do e-mail [e-mail] ele deve enviar os campos Login e Senha no corpo do e-mail.

Alguem me ajuda??

---

Se For Util, Classifique como Util... Se Resolver Seu Problema, Maque Como Resposta! Fazendo Isto, Você pode ajudar outras pessoas com o mesmo problema!

Answer 1

Imports System.Net.Mail
Imports MySql.Data.MySqlClient

Public Class Recuperar
    Dim StrConexao As String = "Database=RepresCom; Data Source=localhost; User Id=root; Password=********"
    Dim conexao As New MySqlConnection(StrConexao)
    Dim DataReader As MySqlDataReader

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Login, Password As String
        Dim StrEmail As String = "Select * From DcUsuario Where DsEmail= '" & TextBox1.Text & "' "
        Dim comando As New MySqlCommand(StrEmail, conexao)
        conexao.Open()
        DataReader = comando.ExecuteReader()
        If DataReader.Read Then
            Login = DataReader("DsLogin")
            Password = DataReader("DsPassword")
            conexao.Close()
        Else
            conexao.Close()
        End If

        If Not TextBox1.Text = "" Or InStr(TextBox1.Text, "@") = 0 Then
            Dim Mail As New MailMessage
            Mail.IsBodyHtml = True
            Mail.From = New MailAddress("[e-mail]")
            Mail.To.Add(TextBox1.Text)
            Mail.Subject = "Recuperação de senha!"
            Mail.Body = "Olá, <br> O seu <b>Login:</b> " & Login & " <br>e sua <b>Senha:</b>" & Password
            Dim SMTP As New SmtpClient("smtp.live.com")
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("[e-mail]", "********")
            SMTP.Port = 587
            SMTP.Send(Mail)
            MsgBox("Email enviado com sucesso!")
            Mail.Dispose()
            comando.Dispose()
            conexao.Dispose()
            Me.Close()
        Else
            MsgBox("Verifique se o e-mail está correto!")
        End If
    End Sub
End Class

Galera, este codigo passou... está enviando login e password no e-mail, mas queria saber se tem alguma outra forma mais simples.

Ainda continua dando warning!

Warning 1: Variable 'Login' is used before it has been assigned a value. A null reference exception could result at runtime.

Warning 2: Variable 'Password' is used before it has been assigned a value. A null reference exception could result at runtime.

Alguem sabe alguma forma mais simples???

---

Se For Util, Classifique como Util... Se Resolver Seu Problema, Maque Como Resposta! Fazendo Isto, Você pode ajudar outras pessoas com o mesmo problema!