none
Enviar Login e Senha De Um Banco MySQL para e-mail RRS feed

  • Pergunta

  •     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("felipe.at@live.com")
                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("felipe.at@live.com", "*********")
                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 felipe.at@live.com 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!

    terça-feira, 21 de maio de 2013 19:06

Todas as Respostas

  • 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("felipe.at@live.com")
                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("felipe.at@live.com", "********")
                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!

    quarta-feira, 22 de maio de 2013 20:20