ERRO EMAIL COM ASP.NET NA UOL

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