[Resolvido] Envio de email autenticado pelo serviço de SMTP da Locaweb
Olá, pessoal...
tenho um code de envio de email que sempre funcionou normal, porém agora a empresa contratou um serviço de SMTP (para enviar mais emails, sem ser considerados spams), porem o code abaixo fala que a conta não existe...
Alguém já teve este problema ?
É preciso configurar alguma coisa a mais para o envio de email autenticado...
O EnableSsl está como false, pois estou usando a porta 587, conforme a própria locaweb recomendou, endereço SMTP correto
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Net.Mail" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Define os dados do e-mail
Dim nomeRemetente as string
Dim emailRemetente as string
Dim senha as string
nomeRemetente = "chospir"
emailRemetente = "emailok@chospir.com.br"
senha = "YFUçlpD147gh"
Dim emailDestinatario as string
Dim emailComCopia as string
Dim emailComCopiaOculta as string
emailDestinatario = "teste@terra.com.br"
emailComCopia = "contato@teste.com.br"
emailComCopiaOculta = "email@comcopiaoculta.com.br"
'Host da porta SMTP
Dim SMTP as string
SMTP = "smtplw.com.br"
Dim assuntoMensagem as string
Dim conteudoMensagem as string
assuntoMensagem = "Teste de envio de emails"
conteudoMensagem = "Teste de envio de emails"
'Cria objeto com dados do e-mail.
Dim objEmail As New System.Net.Mail.MailMessage()
'Define o Campo From e ReplyTo do e-mail.
objEmail.From = New System.Net.Mail.MailAddress("<" & emailRemetente & ">")
'objEmail.ReplyTo = New System.Net.Mail.MailAddress("Sintchospir <sintchospir@sintchospir.com.br>")
'Define os destinatários do e-mail.
objEmail.To.Add("<" & emailDestinatario & ">")
'Define a prioridade do e-mail.
objEmail.Priority = System.Net.Mail.MailPriority.Normal
'Define o formato do e-mail HTML (caso não queira HTML alocar valor false)
objEmail.IsBodyHtml = True
'Define o título do e-mail.
objEmail.Subject = assuntoMensagem
'Define o corpo do e-mail.
objEmail.Body = "<b>" & conteudoMensagem & "</b>"
'Para evitar problemas com caracteres "estranhos", configuramos o Charset para "ISO-8859-1"
objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
objEmail.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
'Cria objeto com os dados do SMTP
Dim objSmtp as New System.Net.Mail.SmtpClient(SMTP, 587)
'Alocamos o endereço do host para enviar os e-mails
objSmtp.Credentials = New System.Net.NetworkCredential(emailRemetente, senha)
objSmtp.Host = SMTP
objSmtp.Port = 587
objSmtp.EnableSsl = False 'true se o SmtpClient usar SSL; caso contrário, false. O padrão é false, mas seta ele só para garantir
'Enviamos o e-mail através do método .send()
Try
objSmtp.Send(objEmail)
Response.Write("E-mail enviado com sucesso !")
Catch ex As Exception
Response.Write("Ocorreram problemas no envio do e-mail. Erro = " & ex.Message)
End try
'excluímos o objeto de e-mail da memória
objEmail.Dispose()
'anexo.Dispose();
End Sub
</script>Discussão (4)
Carregando comentários...