ENVIO DE EMAIL

Public Sub Email()
        Dim I As Integer = 0
        [ô] Dim AREA As String = EMAIL_CELULAR_AREATextBox.Text
        [ô] Dim DDD As String = EMAIL_CELULAR_DDDTextBox.Text
        [ô] Dim NUMERO As String = EMAIL_CELULAR_LINETextBox.Text
        [ô] Dim AT As String = [Ô]@[Ô]
        SMTPSERVER.Credentials = New Net.NetworkCredential(EMAIL_CONTAComboBox.Text, EMAIL_SENHATextBox.Text)
        SMTPSERVER.Port = LBLPORT.Text
        SMTPSERVER.Host = LBLSMTP.Text
      [ô]  SMTPSERVER.EnableSsl = True
        MAIL = New MailMessage()
        MAIL.From = New MailAddress(EMAIL_CONTAComboBox.Text) [ô]REMENTE
        MAIL.To.Add(EMAIL_PARATextBox.Text) [ô]DESTINATARIO
        MAIL.Subject = EMAIL_ASSUNTOTextBox.Text [ô]ASSUNTO
        MAIL.Body = EMAIL_CONTEUDOTextBox.Text [ô]CORPO
        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
        SMTPSERVER.Send(MAIL)

    End Sub