Usuário com melhor resposta
Erro ao enviar email

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.
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()
- Editado Samuel Rodrigues dos Anjos terça-feira, 12 de março de 2013 00:18
- Sugerido como Resposta Samuel Rodrigues dos Anjos terça-feira, 12 de março de 2013 00:18
- Não Sugerido como Resposta Seilor Bonancio JuniorModerator terça-feira, 12 de março de 2013 12:31
- Sugerido como Resposta Seilor Bonancio JuniorModerator terça-feira, 12 de março de 2013 12:31
- Marcado como Resposta Felipo Gonçalves terça-feira, 12 de março de 2013 16:25
Todas as Respostas
-
-
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.
-
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()
- Editado Samuel Rodrigues dos Anjos terça-feira, 12 de março de 2013 00:18
- Sugerido como Resposta Samuel Rodrigues dos Anjos terça-feira, 12 de março de 2013 00:18
- Não Sugerido como Resposta Seilor Bonancio JuniorModerator terça-feira, 12 de março de 2013 12:31
- Sugerido como Resposta Seilor Bonancio JuniorModerator terça-feira, 12 de março de 2013 12:31
- Marcado como Resposta Felipo Gonçalves terça-feira, 12 de março de 2013 16:25