email authe uol erro asp.net

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