ENVIAR EMAIL PELO VB.NET

   Public Sub EnviaEmailBase()
        Dim objNovoEmail As New MailMessage
        Dim objSmtp As New SmtpClient
        Dim SHostname As String

        objNovoEmail.From = New MailAddress([Ô]informativo@mabinfo.com.br[Ô])
        objNovoEmail.To.Add(New MailAddress([Ô]mabinfo@mabinfo.com.br[Ô]))
        objNovoEmail.Priority = MailPriority.High

        objNovoEmail.Subject = [Ô]Atualização da Base de dados do NetGuest[Ô]

        [ô]Formato de e-mail em Html?
        objNovoEmail.IsBodyHtml = True
        objNovoEmail.Body = [Ô]Confirmação de que o(a)[Ô] & Trim(MeuRasao()) & [Ô] - [Ô] & SHostname & [Ô] Atualizou a Base de Dados em [Ô] & HOJE

        [ô]Configuração de tipagem da linguagem, para não aparecer caracteres estranhos na mensagem
        objNovoEmail.SubjectEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
        objNovoEmail.BodyEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])

        [ô]Configuração do IP do servidor SMTP
        objSmtp.Host = [Ô]mail.mabinfo.com.br[Ô]
        objSmtp.Port = [Ô]25[Ô]

        [ô]Caso queira definir um tempo do timeout 
        objSmtp.Timeout = 65
        objSmtp.Credentials = New System.Net.NetworkCredential([Ô]@@@@@[Ô], [Ô]@@@@@@@[Ô])

        Try
            objSmtp.Send(objNovoEmail)
        Catch ex As Exception
            Throw ex
        Finally
            objNovoEmail.Dispose()
        End Try
        objNovoEmail.Dispose()

    End Sub