none
Enviar E-mail Ao Clicar em Botão RRS feed

  • Pergunta

  • Bom dia pessoal, sou novato no VB.NET e queria criar um programa que no evento OnClick de um botão, ele enviasse e-mail para um "x" destinatário.

    Estou com um código aqui, porem não está enviando... esta dando erro no smtp.send(Mail)

    Alguém por favor, pode me ajudar?

    Imports System.Net.Mail
    Public Class Form1
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim mail As New MailMessage()
            mail.From = New MailAddress("felipe.alves@romap.com.br")
            mail.To.Add("felipe.alves@romap.com.br")
            mail.Subject = "Este é um e-mail"
            mail.Body = "Este é o conteúdo do e-mail!"
            Dim smtp As New SmtpClient("smtp.romap.com.br")
    
            smtp.Credentials = New Net.NetworkCredential("felipe.alves@romap.com.br", "insirir_senha")
            smtp.EnableSsl = True
            smtp.Port = 587
            smtp.Timeout = 20000
    
            smtp.Send(mail)
        End Sub
    End Class

    Por favor, me auxiliem!!!

    terça-feira, 10 de abril de 2012 13:24

Respostas

  • Consegui resolver meu problema... O meu código ficou o seguinte.

    Obrigado por falar da senha... Foi um erro meu, esqueci de remover...
    Quando recebi seu e-mail de "TESTE LEONARDO" fiquei assutado... kkkkk

    OBRIGADO!!!!


            Try
                Dim mail As New MailMessage()
                mail.From = New MailAddress("felipe.alves@romap.com.br")
                mail.To.Add("felipe.alves@romap.com.br")
                mail.Subject = "Reserva da sala de reunião"
                mail.Body = "A sala de reunião foi reservada do horario: " & TextBox1 & "Ate as: " & TextBox2 & "!"
    
                Dim smtp As New SmtpClient("smtp.romap.com.br", 587)
                smtp.Credentials = New Net.NetworkCredential("felipe.alves@romap.com.br", "********")
                smtp.Send(mail)
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try



    terça-feira, 10 de abril de 2012 14:55

Todas as Respostas

  • Qual é o erro apresentado?

    Leonardo Borges 'Xis'
    "Mas a persistência é o que leva a perfeição."
    Se a resposta for útil, marque-a. Poderá ser útil para outros desenvolvedores.

    terça-feira, 10 de abril de 2012 13:29
  • Na verdade não da erro nenhum, mas não envia...

    Ai hora que coloca pra executar o programa, Clico no botão... Aparece assim "O certificado remoto é invalido, de acordo com o procedimento de validação" [la no smtp.send(Mail)]

    E pronto... só isso que aparece, mais nada.

    Outro detalhe, trava o form... não deixa fechar... (tenho que fechar com o botão direito ou no gerenciador)


    terça-feira, 10 de abril de 2012 13:32
  • Felipe, tirei o EnableSsl do código e funcionou normalmente.

    OBS: sugiro remover a imagem acima, pois não houve edição da senha do e-mail ;)


    Leonardo Borges 'Xis'
    "Mas a persistência é o que leva a perfeição."
    Se a resposta for útil, marque-a. Poderá ser útil para outros desenvolvedores.

    terça-feira, 10 de abril de 2012 14:50
  • Consegui resolver meu problema... O meu código ficou o seguinte.

    Obrigado por falar da senha... Foi um erro meu, esqueci de remover...
    Quando recebi seu e-mail de "TESTE LEONARDO" fiquei assutado... kkkkk

    OBRIGADO!!!!


            Try
                Dim mail As New MailMessage()
                mail.From = New MailAddress("felipe.alves@romap.com.br")
                mail.To.Add("felipe.alves@romap.com.br")
                mail.Subject = "Reserva da sala de reunião"
                mail.Body = "A sala de reunião foi reservada do horario: " & TextBox1 & "Ate as: " & TextBox2 & "!"
    
                Dim smtp As New SmtpClient("smtp.romap.com.br", 587)
                smtp.Credentials = New Net.NetworkCredential("felipe.alves@romap.com.br", "********")
                smtp.Send(mail)
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try



    terça-feira, 10 de abril de 2012 14:55