Erro ao enviar email

Question

Ao tentar enviar um email de teste, tenho a seguinte exceção:

System.Net.Mail.SmtpException was caught
  HResult=-2146233088
  Message=Falha ao enviar email.
  Source=System
  StackTrace:
       em System.Net.Mail.SmtpClient.Send(MailMessage message)
       em contato.cmdEnviar_Click(Object sender, EventArgs e) na c:\Users\LG\documents\visual studio 2012\WebSites\LMInformatica\contato.aspx.vb:linha 31
  InnerException: System.Net.WebException
       HResult=-2146233079
       Message=O nome remoto não pôde ser resolvido: 'smtp.lminformatica.srv.br'
       Source=System
       StackTrace:
            em System.Net.ServicePoint.GetConnection(PooledStream PooledStream, Object owner, Boolean async, IPAddress& address, Socket& abortSocket, Socket& abortSocket6)
            em System.Net.PooledStream.Activate(Object owningObject, Boolean async, GeneralAsyncDelegate asyncCallback)
            em System.Net.PooledStream.Activate(Object owningObject, GeneralAsyncDelegate asyncCallback)
            em System.Net.ConnectionPool.GetConnection(Object owningObject, GeneralAsyncDelegate asyncCallback, Int32 creationTimeout)
            em System.Net.Mail.SmtpConnection.GetConnection(ServicePoint servicePoint)
            em System.Net.Mail.SmtpTransport.GetConnection(ServicePoint servicePoint)
            em System.Net.Mail.SmtpClient.GetConnection()
            em System.Net.Mail.SmtpClient.Send(MailMessage message)
       InnerException: 

O que posso estar fazendo de errado?

---

Atenciosamente, Marcio Nogueira Cardoso Pinto.

Answer 1

Cara,

O seu servidor smtp pode estar sendo informado errado como a mensagem do que postou ai em cima diz. Poste o seu código para analisarmos e ver se existe algum problema.

---

Atenciosamente, Samuel dos Anjos

Answer 2

Segue o código:

ProtectedSubcmdEnviar_Click(sender AsObject, e AsEventArgs) HandlescmdEnviar.Click

       

DimmsgMail AsNewMailMessage

       

DimsmtpClient AsNewSmtpClient

       

DimhostName AsString= "mail.lminformatica.srv.br"

       

DimhostPort AsString= "587"

       

Try

            msgMail.From =

NewMailAddress(txtEmail.Text)

            msgMail.To.Add(

NewMailAddress("[e-mail]"))

            msgMail.Subject = txtAssunto.Text

            msgMail.Body = txtMensagem.Text

            msgMail.Priority =

MailPriority.Normal

            smtpClient.Host = hostName

            smtpClient.Port = hostPort

            smtpClient.Send(msgMail)

       

Catchex AsException

            MsgBox(

"erro ao enviar email!", MsgBoxStyle.Critical)

       

Finally

            cmdEnviar.Enabled =

False

       

EndTry

   

EndSub

---

Atenciosamente, Marcio Nogueira Cardoso Pinto.

Answer 3

Cara,

Da uma olhada nesse exemplo:

Dim mailMessage As New MailMessage()

mailMessage.From = New MailAddress([e-mail], "Teste")

mailMessage.[To].Add([e-mail])
mailMessage.Subject = "Efetuando Testes"
mailMessage.SubjectEncoding = System.Text.Encoding.UTF8
mailMessage.Body = strMensagemHtml
mailMessage.BodyEncoding = System.Text.Encoding.UTF8
mailMessage.IsBodyHtml = True
mailMessage.Priority = MailPriority.Normal

Dim smtpClient As New SmtpClient("Meu smtp")

smtpClient.Timeout = 50000
smtpClient.DeliveryMethod = SmtpDeliveryMethod.Network
smtpClient.Credentials = New System.Net.NetworkCredential("Usuario do smtp", "Senha do smtp")

smtpClient.Send(mailMessage)
smtpClient.Dispose()