Erro ao enviar email em VB.Nte

Question

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("[e-mail]"))
            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.

Answer 1

Olá está faltando o host e a porta veja este exemplo

Answer 2

Qual é a porta padrão do SMTP?

---

Atenciosamente, Marcio Nogueira Cardoso Pinto.

Answer 3

O erro está aqui:

mail.lminformatica.srv.br

o trecho acima não está sendo reconhecido como um cliente SMTP.

Como posso resolver este problema?

---

Atenciosamente, Marcio Nogueira Cardoso Pinto.

Answer 4

Depende do seu servidor tenta 25 ou 587 mais cada servidor usa um numero de porta.

Answer 5

Pode ser por eu ter setado useDefaultCredentials = False ?

---

Atenciosamente, Marcio Nogueira Cardoso Pinto.

Answer 6

Então alguns servidores aceitam outros não e depende da permissão do usuario logado na maquina, mas qual Exception está gerando agora ?

Answer 7

O erro continua o mesmo.

---

Atenciosamente, Marcio Nogueira Cardoso Pinto.

Answer 8

Abra seu commadn propt e tente :

telnet mail.Ininformatica.srv.br 25

e veja se conecta. Esse erro significa ou seu computador não conecta nesse server ou seu usuario não possui credenciais para acesso testa isso ai.