none
Erro ao enviar email em VB.Nte RRS feed

  • Pergunta

  • Olá, tenho o seguinte código:

    Protected Sub btnEnviar_Click(sender As Object, e As System.EventArgs) Handles btnEnviar.Click
            'enviando email de contato
    
            Dim client As String = "mail.lminformatica.srv.br"
    
            Dim msg As New MailMessage,
                smtp As New SmtpClient(client)
    
            Try
    
                msg.Subject = txtAssunto.Text
                msg.From = New MailAddress(txtEmail.Text)
                msg.To.Add(New MailAddress("contato@lminformatica.srv.br"))
                msg.Body = txtMensagem.Text
                msg.BodyEncoding = Encoding.UTF8
                msg.IsBodyHtml = True
                msg.Priority = MailPriority.Normal
                smtp.Send(msg)
    
            Catch ex As Exception
    
            End Try
    
        End Sub

    Ao executar, o mesmo gera a seguinte exception: System.Net.Mail.SmtpException was caught

    Alguém saberia como posso resolver?

    Desde já agradeço a atenção.


    Atenciosamente, Marcio Nogueira Cardoso Pinto.

    segunda-feira, 24 de março de 2014 16:10

Respostas

Todas as Respostas