Duvida Codigo
11/10/2014
0
Boa noite, sou um mero iniciante com programação , mas gostaria de tirar algumas duvidas basicas.
eu procurei inumeros tutoriais como enviar um email pelo VB, estou viculando uma caixa de texto com uma sugestao. antes de vincular o codigo ao textbox eu estou procurando algum que funcione, mas esse aqui só da erro de envio
Imports System.Net.Mail
Public Class form_pr
Private Sub Btn_sair_Click(sender As Object, e As EventArgs) Handles Btn_sair.Click
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim servidorsmtp As New SmtpClient()
Dim email As New MailMessage()
servidorsmtp.Credentials = New _
Net.NetworkCredential("emailx@gmail.com", "*********")
servidorsmtp.Port = 587
servidorsmtp.Host = "smtp.gmail.com"
email = New MailMessage
email.From = New MailAddress("emailY@outlook.com")
email.To.Add("emailY@outlook.com")
email.Subject = "Indicação"
email.Body = "Teste"
servidorsmtp.Send(email)
MsgBox("Enviado com sucesso")
Catch ex As Exception
MsgBox("Falha ao enviar")
End Try
End Sub
Tenho tambem uma combobox com varios itens, gostaria de saber qual comando usar pra ao clicar no item 1 me habilitar um novo formulario
eu procurei inumeros tutoriais como enviar um email pelo VB, estou viculando uma caixa de texto com uma sugestao. antes de vincular o codigo ao textbox eu estou procurando algum que funcione, mas esse aqui só da erro de envio
Imports System.Net.Mail
Public Class form_pr
Private Sub Btn_sair_Click(sender As Object, e As EventArgs) Handles Btn_sair.Click
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim servidorsmtp As New SmtpClient()
Dim email As New MailMessage()
servidorsmtp.Credentials = New _
Net.NetworkCredential("emailx@gmail.com", "*********")
servidorsmtp.Port = 587
servidorsmtp.Host = "smtp.gmail.com"
email = New MailMessage
email.From = New MailAddress("emailY@outlook.com")
email.To.Add("emailY@outlook.com")
email.Subject = "Indicação"
email.Body = "Teste"
servidorsmtp.Send(email)
MsgBox("Enviado com sucesso")
Catch ex As Exception
MsgBox("Falha ao enviar")
End Try
End Sub
Tenho tambem uma combobox com varios itens, gostaria de saber qual comando usar pra ao clicar no item 1 me habilitar um novo formulario
Wiratan Silva
Curtir tópico
+ 0
Responder
Posts
14/10/2014
Joel Rodrigues
Ao invés de "Falha ao enviar", coloque ex.Message na mensagem para ver qual é o erro exatamente.
Responder
Clique aqui para fazer login e interagir na Comunidade :)