ENVIO DE EMAIL

  Dim I As Integer = 0
        If EMAIL_PARATextBox.Text <> [Ô][Ô] Then

            Try
                Dim mail As New MailMessage()
                mail.From = New MailAddress(EMAIL_CONTAComboBox.Text)
                mail.To.Add(EMAIL_PARATextBox.Text)
                mail.Subject = EMAIL_ASSUNTOTextBox.Text
                mail.Body = EMAIL_CONTEUDOTextBox.Text

                Dim smtp As New SmtpClient([Ô]servidor[Ô], 587)
                smtp.Credentials = New Net.NetworkCredential(EMAIL_CONTAComboBox.Text, EMAIL_SENHATextBox.Text)
 mail.EnableSsl = True
                For I = 0 To AnexoListBox.Items.Count - 1
                    mail.Attachments.Add(New Attachment(AnexoListBox.Items(I)))
                Next

                [ô]MAIL.To.Add(AREA + DDD + NUMERO + AT + EMAIL_COPIATextBox.Text)
                If EMAIL_COPIATextBox.Text <> [Ô][Ô] Then
                    mail.To.Add(EMAIL_COPIATextBox.Text) [ô]COPIA
                End If
                If EMAIL_OCULTOTextBox.Text <> [Ô][Ô] Then
                    mail.Bcc.Add(EMAIL_OCULTOTextBox.Text) [ô]OCULTO
                End If

                If CheckBox2.Checked = True Then
                    mail.IsBodyHtml = True
                End If

                smtp.Send(mail)	

Try  

 [ô] cria uma instância do objeto MailMessage
        Dim mMailMessage As New MailMessage()
        [ô] Define o endereço do remetente
        mMailMessage.From = New MailAddress([Ô]teste@unescon.com.br[Ô])
        [ô] Define o destinario da mensagem
        mMailMessage.To.Add(New MailAddress([Ô]ruadapaia@hotmail.com[Ô]))
        [ô] Define o assunto
        mMailMessage.Subject = [Ô]Assunto[Ô]
        [ô] Define o corpo da mensagem
        mMailMessage.Body = [Ô]Corpo[Ô]
        [ô] Define o formato do email como HTML
        mMailMessage.IsBodyHtml = True
        [ô] Define a prioridade da mensagem como normal
        mMailMessage.Priority = MailPriority.High
        [ô]If Anexo <> Nothing Then
        [ô] mMailMessage.Attachments.Add(New Attachment(Anexo))
        [ô]End If
        [ô] Cria uma instância de SmtpClient - Nota - Define qual o host a ser usado para envio
        [ô] de mensagens, no local de smtp.server.com use o nome do SEU servidor
        Dim mSmtpClient As New SmtpClient
        mSmtpClient.Host = [Ô]mail.unescon.com.br[Ô]
        [ô] Envia o email
        mSmtpClient.Credentials = New Net.NetworkCredential([Ô]teste@unescon.com.br[Ô], [Ô]123456[Ô])
        mSmtpClient.EnableSsl = False
        mSmtpClient.Port = 25
        mSmtpClient.Send(mMailMessage)
       
          Catch ex As Exception
              MsgBox(ex.Message)
          End Try

Citação:

:
o pessoal do servidor pediram para eu usar o CDO e me passaram este codigo, mas esta dando erro em varias linhas

Public Sub teste_CDO()
Dim objMessage As New MailMessage()
Dim objConfig As String
Dim Flds As String
Dim smtp As New SmtpClient
objMessage = CreateObject([Ô]cdo.message[Ô])
smtp = CreateObject([Ô]cdo.configuration[Ô])
[ô] Setting the SMTP Server
smtp = objConfig.Fields
smtp.Item([Ô]http://schemas.microsoft.com/cdo/configuration/sendusing[Ô]) = 2
smtp.Item([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserver[Ô]) = [Ô]mail.dietnet.com.br[Ô]
objConfig.update()

objMessage.Configuration = objConfig
objMessage.To = EMAIL_CONTAComboBox.Text
objMessage.From = EMAIL_PARATextBox.Text
objMessage.Subject = EMAIL_ASSUNTOTextBox.Text
objMessage.Body = EMAIL_CONTEUDOTextBox.Text
objMessage.fields.update()
objMessage.Send()
Response.write([Ô]Mail sent...[Ô])

objMessage = Nothing
objConfig = Nothing
end sub

alguem poderia me ajudar