email authe uol erro asp.net

[zimiro 0]

estou com problema para criar email depois que porta foi mudada para 587 na uol

 

erro

Ocorreram problemas no envio do e-mail. Erro = Nome de caixa de correio não permitido. A resposta do servidor foi: 5.7.1 : Sender address rejected: not owned by user@ppiscinas.com.br>

 

 

Imports System.Net.Mail

'Define os dados do e-mail
        Dim nomeRemetente As String
        Dim emailRemetente As String
        Dim senha As String

        nomeRemetente = "nome do remetente"
        emailRemetente = ""
        senha = "senha do email"

        Dim emailDestinatario As String
        Dim emailComCopia As String
        Dim emailComCopiaOculta As String

        emailDestinatario = ""
        emailComCopia = ""
        emailComCopiaOculta = ""


        'Host da porta SMTP
        Dim SMTP As String

        SMTP = "smtp.ppiscinas.com.br"

        Dim assuntoMensagem As String
        Dim conteudoMensagem As String

        assuntoMensagem = "Teste de envio de emails usando System.Net.Mail em VB.NET"
        conteudoMensagem = "Teste de envio de emails usando System.Net.Mail em VB.NET"


        '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("Nome <email@seudominio.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("", "")
        objSmtp.Host = SMTP
        objSmtp.Port = 587

        'Caso utilize conta de email do exchange da locaweb deve habilitar o SSL
        'objEmail.EnableSsl = true;

        '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();

 

[KhaosDoctor 242]

Já tentou habilitar o SSL e logar no SMTP para ver o que acontece? Na maioria das vezes os erros de email são porque eles não são autenticados. Tente também a porta 465 o invés da 587.