Array
(
)

Duvida - Email com body em html programando em vb

Hannah
   - 10 jan 2014

Olá Pessoal,
Estou começando a programar agora... em VB. Montei um software que importa um txt com dados de cobrança e puxa o programa de email padrão pra disparar um aviso de titulo a vencer.
Porém, o conteúdo do body não fica formatado bonitinho. Fica tudo emendado.
Tentei formatar em html e incorporar no VB, sem sucesso.
Alguém poderia me dar um direcionamento de como formatar o body deste email que meu software gera?
Desde já agradeço,
Modelo body email (Clique na imagem para abrir em uma nova janela)
#Código

 
Private Sub btenviar_Click(sender As Object, e As EventArgs) Handles btenviar.Click


        Dim strTo As String = datagrid.SelectedRows(0).Cells(6).Value.ToString
        Dim strSubject As String = "Grafcola - Aviso de titulo a vencer em" & datagrid.SelectedRows(0).Cells(2).Value.ToString
        Dim strBody As String = "Empresa:" & datagrid.SelectedRows(0).Cells(1).Value.ToString & _
            "Prezado cliente  " & datagrid.SelectedRows(0).Cells(5).Value.ToString & _
        "O título abaixo têm seu vencimento no dia " & datagrid.SelectedRows(0).Cells(2).Value.ToString & vbCrLf & _
"Caso haja necessidade, solicite uma 2ª via do boleto para pagamento " & _

"Título	Vencimento	Valor	Banco" & _
       datagrid.SelectedRows(0).Cells(0).Value.ToString & datagrid.SelectedRows(0).Cells(2).Value.ToString & _
       datagrid.SelectedRows(0).Cells(3).Value.ToString & datagrid.SelectedRows(0).Cells(4).Value.ToString & vbCrLf & _
"Esta é uma mensagem automática e não é necessário respondê-la."


        Dim strMessage As String = "mailto:" & strTo & "?subject=" &
        strSubject & "&body=" & strBody
        System.Diagnostics.Process.Start(strMessage)
    End Sub

Hannah
   - 12 jan 2014

Pessoal... estou seguindo essa alternativa agora, mas nao sei finalizar chamando o programa de email padrão... alguem me dá uma luz?
Desde já agradeço,
#Código

 Private Sub btenviar_Click(sender As Object, e As EventArgs) Handles btenviar.Click
        Dim objEmail As New System.Net.Mail.MailMessage()

        objEmail.To.Add(datagrid.SelectedRows(0).Cells(6).Value.ToString)
        objEmail.Priority = System.Net.Mail.MailPriority.High
        objEmail.IsBodyHtml = True
        objEmail.Subject = " - Aviso de titulo a vencer em" & datagrid.SelectedRows(0).Cells(2).Value.ToString
        objEmail.Body = _
            <html>
                <style type="text/css">
.red {
	color: #F00;
}
.white {
	color: #FFF;
}
.red strong u {
	font-family: "Lucida Sans Unicode", "Lucida Grande", sans-serif;
}
.comum {
	font-family: "Lucida Sans Unicode", "Lucida Grande", sans-serif;
}
.comum {
	font-family: "Lucida Sans Unicode", "Lucida Grande", sans-serif;
}
.comum {
	font-family: "Trebuchet MS", Arial, Helvetica, sans-serif;
}
</style>

<body>
<p align="center" class="red"><strong><u>Aviso de Títulos a Vencer</u></strong> </p>
<p align="left"><br />
  <span class="comum"><span class="comum">Prezado  cliente vcliente<br />
  <br />
  Os títulos abaixo têm seu vencimento no dia vdata<br />
  Caso haja necessidade, solicite uma 2ª via do boleto para pagamento pelo e-mail </span></span></p>
<table border="1" cellpadding="0" width="100%">
  <tr class="white">
    <td width="21%" bgcolor="#FF0000"><p align="center" class="comum"><span class="comum"><strong><em>Título</em></strong></span></p></td>
    <td width="21%" bgcolor="#FF0000"><p align="center" class="comum"><span class="comum"><strong><em>Vencimento</em></strong></span></p></td>
    <td width="28%" bgcolor="#FF0000"><p align="center" class="comum"><span class="comum"><strong><em>Valor</em></strong></span></p></td>
    <td width="28%" valign="top" bgcolor="#FF0000"><p align="center" class="comum"><span class="comum"><strong><em>Banco</em></strong></span></p></td>
  </tr>
  <tr>
    <td width="21%"><p align="right" class="comum"><span class="comum"><strong>vcod</strong></span></p></td>
    <td width="21%"><p align="right" class="comum"><span class="comum"><strong>vdata</strong></span></p></td>
    <td width="28%"><p align="right" class="comum"><span class="comum"><strong>vvalor</strong></span></p></td>
    <td width="28%" valign="top"><p align="right" class="comum"><span class="comum"><strong>vbanco</strong></span></p></td>
  </tr>
</table>
<p><span class="comum"><span class="comum">Esta é  uma mensagem automática e não é necessário respondê-la.<br />
</span></span><span class="comum"></span> </p>
</body>
</html>

        objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
        objEmail.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")