Imports System.Net.Mail

Mensagem = "Olá<br><br> Nome / Nome Empresa: " + nome + "<br>Estado: " + estado + ".<br>E-mail: " + email2 + "<br>Telefone para contato:" + telefone + ".<br> <br> Gostaria de receber uma proposta de assinatura.<br>" 'Se o e-mail for em HTML, as tags do HTML deve estar dentro deste texto também. Tipo <BR>, <B> e outros."
        Dim SmtpMail As New SmtpClient 'Cria o client SMTP

        'Para criar a nova mensagem de e-mail vamos passar os parêmetros :
        'email de: Remetente
        'email para: Destinatário
        'Assunto do e-mail
        'Corpo do e-mail  
        Dim Email As New MailMessage("site@site.com.br", "suporte@site.com.br", "Como Assinar - " + nome + "", Mensagem.ToString)

        'Email.CC.Add("emailcopia@dominio.com.br") 'Se quiser enviar o e-mail com cópia para alguém  
        'Email.Bcc.Add("emailcopiaoculta@dominio.com.br") 'Se quiser enviar o e-mail com cópia oculta para alguém

        'Configurações regionais, para evitar problemas com acentos e afins. Aqui está como Western Ocidental
        Email.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")

        'Se for formatado em HTML  
        Email.IsBodyHtml = True

        'IP ou nome do Host do servidor de e-mail. Geralmente pode ser o IP da própria máquina, que tem um SMTP virtual server instalado.  
        'Se não tiver, use o principal da sua rede, porém aí você pode ter problemas de usuário e senha para o envio do e-mail no servidor SMTP.
        'Se for este o caso, antes disso, tem que ter a linha:
        'SmtpMail.Credentials = New System.Net.NetworkCredential("usuario", "senha")
        SmtpMail.Host = "smtp.servidor.com.br"

        'Finalmente, envia o e-mail:
        SmtpMail.Send(Email)