IMAGEM NO EMAIL

      Protected Sub send()
        Dim objNovoEmail As New MailMessage
        Dim objSmtp As New SmtpClient


        [ô]Adicionando o e-mail do remetente
        objNovoEmail.From = New MailAddress(txtEmailRemetente.Text)

        [ô]Adicionando o e-mail do destinatário
        objNovoEmail.To.Add(New MailAddress(txtEmailDestinatario.Text))

        [ô]Adiciona a prioridade do e-mail
        objNovoEmail.Priority = MailPriority.High

        [ô]Adicionando o assunto ao atributo assunto
        objNovoEmail.Subject = txtAssunto.Text

        [ô]Inserir o corpo da mensagem no atributo Body
        objNovoEmail.Body =
         GridContratoVencerMes.CurrentRow.Cells(11).Value & vbCrLf & _
        [Ô]NUMERO CONTRATO: [Ô] & GridContratoVencerMes.CurrentRow.Cells(1).Value & vbCrLf & _
        [Ô]NUMERO LICITACAO: [Ô] & GridContratoVencerMes.CurrentRow.Cells(2).Value & vbCrLf & _
        [Ô]VALOR CONTRATO: R$[Ô] & GridContratoVencerMes.CurrentRow.Cells(8).Value & vbCrLf & _
        [Ô]VENCIMENTO: [Ô] & GridContratoVencerMes.CurrentRow.Cells(13).Value

        [ô]Formato de e-mail em Html?
        objNovoEmail.IsBodyHtml = False

        [ô]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[Ô])

        [ô]Adicionando os campos dos atributos da configuração do e-mail
        [ô]parametros necessários para envio de e-mail.


        [ô]Configuração do IP do servidor SMTP
        [ô]Por exemplo: smtp.mail.yahoo.com.br (EXEMPLO)
        objSmtp.Host = txtServidorSMTP.Text
        objSmtp.Port = txtPorta.Text

        [ô]Caso queira definir um tempo do timeout 
        [ô]objSmtp.Timeout = 10

        [ô]Define se deve usar autenticação ou não
        If txtUsuario.Text <> String.Empty And txtSenha.Text <> String.Empty Then
            objSmtp.Credentials = New System.Net.NetworkCredential(txtUsuario.Text, txtSenha.Text)
        End If

        If txtUsuario.Text = String.Empty Then
            objSmtp.UseDefaultCredentials = False
        End If

        [ô]Habilitar SSL ou não? 
        objSmtp.EnableSsl = chkSSL.CheckState

        [ô]Enviando a mensagem por e-mail
        Try
            objSmtp.Send(objNovoEmail)
        Catch ex As Exception
            Throw ex
        Finally
            objNovoEmail.Dispose()
        End Try
        objNovoEmail.Dispose()
    End Sub