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")