Duvida - Email com body em html programando em vb

10/01/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,
[img:descricao=Modelo body email]http://arquivo.devmedia.com.br/forum/imagem/355381-20140110-213909.png[/img]

 
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 Andrade

Curtir t�pico + 0

Responder

Posts

12/01/2014

Hannah Andrade

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,

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

Responder

Gostei + 0