none
Erro ao enviar email RRS feed

  • Pergunta

  • 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.

    segunda-feira, 11 de março de 2013 22:50

Respostas

  • Cara,

    Da uma olhada nesse exemplo:

    Dim mailMessage As New MailMessage()
    
    mailMessage.From = New MailAddress(Teste@hotmail.com, "Teste")
    
    mailMessage.[To].Add(MeuEmailTeste@hotmail.com)
    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()

    terça-feira, 12 de março de 2013 00:15

Todas as Respostas

  • 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

    segunda-feira, 11 de março de 2013 22:55
  • 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("contato@lminformatica.srv.br"))

                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.

    segunda-feira, 11 de março de 2013 23:44
  • Cara,

    Da uma olhada nesse exemplo:

    Dim mailMessage As New MailMessage()
    
    mailMessage.From = New MailAddress(Teste@hotmail.com, "Teste")
    
    mailMessage.[To].Add(MeuEmailTeste@hotmail.com)
    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()

    terça-feira, 12 de março de 2013 00:15