Erro no envio de email.

[Otacildo Ferreira da Silva]

Boa noite amigos,

Achei uma video aula que mostra como enviar email. Esta aula esta no vb 2012 e eu fiz no vb 2010. A escrita esta identica, mas no 2010 esta dando erro. Quando depuro o programa, ele da a mensagem de erro do catch.

Imports System.Net.Mail

Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Try

Dim servidorsmtp As New SmtpClient()

Dim email As New MailMessage()

servidorsmtp.Credentials = New Net.NetworkCredential("emailenvio@gmail.com", "senhaenvio")

servidorsmtp.Port = 587

servidorsmtp.Host = "smtp.gmail.com"

email = New MailMessage

email.From = New MailAddress("emailenvio@gmail.com")

email.To.Add("emaildestino@gmail.com")

email.Subject = "Email de teste"

email.Body = "Este é um teste. Funcionou."

servidorsmtp.Send(email)

MsgBox("Email enviado")

Catch ex As Exception

MsgBox("Ocorreu um erro no envio.")

End Try

End Sub

End Class

[Graymalkin]

Olha o que está em ex.Message, dentro do Catch para saber qual é o erro:

Catch ex As Exception
            MsgBox("Ocorreu um erro no envio: " & ex.Message)

Assim vai ser mais fácil pra descobrir qual é o problema.

Abraços!