Olá a todos!
Tenho um rotina no sistema que manda e-mail para o usuário. Nesse e-mail é gerada uma tabela em html que é enviada no corpo da mensagem do e-mail.
Até aí tudo bem. O e-mail está enviando certinho com a tabela normal, bonitinha, no e-mail.
O problema é que preciso mostrar ao operador como está a mensagem antes de enviar por e-mail. Tentei mostrar a mensagem do e-mail em um campo caixa de texto Rich Text, mas a tabela sai desarrumada em uma única linha.
Segue um exemplo:
Private Sub Comando212_Click()
Dim varMensagem, Cab, Corpo, Fecho, Linha1, linha2, linha3, linha4, linha5 As String
Cab = "Exemplo de tabela em html, segue abaixo: <br><br><table><caption><center><b>EXEMPLO</b></center></caption><tr><td><b>NUM</b></td><td><b>FRUTAS</b></td><td><b>LEGUMES</b></td><td><b>VERDURAS</b></td></tr>"
Linha1 = "<tr><td><b>1</b></td><td><b>Abacaxi</b></td><td><b>Beterraba</b></td><td><b>Alface</b></td></tr>"
linha2 = "<tr><td><b>2</b></td><td><b>Maçã</b></td><td><b>Cenoura</b></td><td><b>Coentro</b></td></tr>"
linha3 = "<tr><td><b>3</b></td><td><b>Morango</b></td><td><b>Beringela</b></td><td><b>Couve</b></td></tr>"
linha4 = "<tr><td><b>4</b></td><td><b>Goiaba</b></td><td><b>Pepino</b></td><td><b>Salsa</b></td></tr>"
linha5 = "<tr><td><b>5</b></td><td><b>Laranja</b></td><td><b>Chuchu</b></td><td><b>Espinafre</b></td></tr>"
Fecho = "<tr><td></td><td></td><td></td><td></td></table>"
varMensagem = Cab & Linha1 & linha2 & linha3 & linha4 & linha5 & Fecho
txt_texto.Value = varMensagem
End Sub
Aguardo ajuda.
Tenho um rotina no sistema que manda e-mail para o usuário. Nesse e-mail é gerada uma tabela em html que é enviada no corpo da mensagem do e-mail.
Até aí tudo bem. O e-mail está enviando certinho com a tabela normal, bonitinha, no e-mail.
O problema é que preciso mostrar ao operador como está a mensagem antes de enviar por e-mail. Tentei mostrar a mensagem do e-mail em um campo caixa de texto Rich Text, mas a tabela sai desarrumada em uma única linha.
Segue um exemplo:
Private Sub Comando212_Click()
Dim varMensagem, Cab, Corpo, Fecho, Linha1, linha2, linha3, linha4, linha5 As String
Cab = "Exemplo de tabela em html, segue abaixo: <br><br><table><caption><center><b>EXEMPLO</b></center></caption><tr><td><b>NUM</b></td><td><b>FRUTAS</b></td><td><b>LEGUMES</b></td><td><b>VERDURAS</b></td></tr>"
Linha1 = "<tr><td><b>1</b></td><td><b>Abacaxi</b></td><td><b>Beterraba</b></td><td><b>Alface</b></td></tr>"
linha2 = "<tr><td><b>2</b></td><td><b>Maçã</b></td><td><b>Cenoura</b></td><td><b>Coentro</b></td></tr>"
linha3 = "<tr><td><b>3</b></td><td><b>Morango</b></td><td><b>Beringela</b></td><td><b>Couve</b></td></tr>"
linha4 = "<tr><td><b>4</b></td><td><b>Goiaba</b></td><td><b>Pepino</b></td><td><b>Salsa</b></td></tr>"
linha5 = "<tr><td><b>5</b></td><td><b>Laranja</b></td><td><b>Chuchu</b></td><td><b>Espinafre</b></td></tr>"
Fecho = "<tr><td></td><td></td><td></td><td></td></table>"
varMensagem = Cab & Linha1 & linha2 & linha3 & linha4 & linha5 & Fecho
txt_texto.Value = varMensagem
End Sub
Aguardo ajuda.